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The Your Commodore Serious 
User Guide is packed full of vital 
information and programmes for 
all types of Commodore owners. 

If you use your computer for 
'home office' purposes then the 
80 column C64 wordprocessor 
will no doubt come in extremely 
handy (tape and disk supported). 
If you need to keep lists of in - 
formation, the database Multifile 
will be very useful. Multifile is 
customized to suit your specific- 
needs and it can be used for any- 
thing from running a stock 
control to keeping a list of names 
and addresses. 

Many utility programmes are 
also included. MPS801/3 owners 



can now use descenders and 
user-defined character sets on 
their printers, Plus/4 owners can 
add a wealth of new commands 
with our extended Basic. Disk 
owners will find the fast format 
ter and file descriher invaluable 
utilities. 

If you write your own pro 
grammes then there's plenty in 
the Guide for you too. Program 
Lock will protect your pro- 
grammes and keep prying eyes 
from reading your code. A char- 
acter scroller for the C64 will 
help to improve the visual effect 
of your programs. 

Beginners and hardened pro- 
grammers alike will find the 



wealth of technical information 
provided in our Technical 
Appendix, an invaluable ref- 
erence. Here you will find 
memory maps for all of the 
popular Commodore computers. 
ROM calls are also listed so that 
you can find out, at a glance, in- 
formation that you need when 
programming. Aids such as the 
hex-decimal convenor and the 
list of useful POKE commands 
will also prove extremely useful. 

The Your Commodore Serious 
Users Guide is something that no 
Commodore owner should be 
without. 



Easy Entry C64 



Gel it right first time with our deluxe program system 

for the 064. 



Xou may have noticed thai our 
listings are free ol those horrible little 
black blobs which send you searching 
around the keyboard for a suitable 
graphic symbol. You may also have 
noticed the funny numbers by the side 
of each line of the listing. I' ret no more, 
it's all part of our easy entry aid. 

Instead of those nasty graphics and 
rows of countless spaces in PRINT 
statements and strings we use a special 
coding system. The code, or 
mnemonic, is always contained in 
square brackets and you'll soon learn 
to decipher their meanings. 

For example, [SA] would mean 
type in a Shifted A, or an ace of spades 
in layman's terms, and [SAI()| would 
mean a row of ten of these symbols. 

[S+2] means hold down the shift 
key and press the plus key twice. It 
doesn't take a great leap of logic to 
realise that [C+21 means exactly the 
same thing except that the Commo- 
dore key (bottom left of the keyboardl 
is held down instead of the shift key. 

If more than two spaces appear in a 
statement then this will be printed as 
[SPC4] or. exceptionally. [SSPC4J. 
Translated into Hnglish this means 
press the spacebar four times or in the 
latter case hold the shift key down 
while you do it. 

A string of special characters could 
appear as: 

(CTRL N. DOWN2.LEFT5.BLUE. 
F3.C3] 

This would be achieved by holding 



down the CTRL key as you press N. 
press the cursor key down twice, the 
cursor left key five times, press the key 
marked BLUE while holding down the 
CTRL key. press the F3 key and. 
finally hold the Commodore key down 
while pressing the number two key(C2 
would of course make the computer 
print in brown). 

Always remember that you should 
only ha\e a row of graphics characters 
on your screen with no square brackets 
and no commas, unless something like 
this appears: 
[SSj.[C*] 

In this case the two characters should 
have a comma between them. 

On rare occasions |REV T] will 
appear in a listing. This is a delete 
s\mbol and is created by entering the 
line up to this mnemonic. Then type a 
closing quotation mark (SHIFT & 2) 
and delete it. This gets the computer 
out of quotes mode. Mold down CTRL 
and press the number nine key 
(RVSON). type the relevant number of 
reversed T's and then hold down 
CTRL and press zero (RVSOFF). 
Next type another quotation mark and 
delete it again. Now finish the line and 
press RETURN. 

A list of these special cases is gi\en 
in the table but remember that only 
one of these mnemonics will appear 
outside of a PRINT string: the symbol 
for pi. This may appear when its value 
is needed in a calculation so this may 
look something like: 



:CC=2*[PI]*R: 

Ignore the square brackets and just 
type in a shifted upward pointing 
arrow (ie. the pi symbol). 



FROGRArt: SYNThX CI IED ER 



5 REM SYTAX CHECKER - ERIC DOYLE 

10 BL-10 :LN-70 iSA-49152 
30 FOP L-0 TO BL:CX-0:F0P D-0 TO 
15 

30 READ A. IF A>255THENPRINT"NUt1B 
ER TO LAR5E";LN*(LMQ):ST0P 
40 CX«CX'A ; POKE SA*L*16»D . A : NEXT 
□ 

50 READ A: I F A><CX THENPR I NT "ERR 

OR IN LINE"iLN-CL-10):STQP 

60 NEXT L:5YS 49152:NEU 

70 DATA 173,5,3,201,165.208.31.1 

20.169,9. 141.3S.50a. 141. 33, SOB, 1 

B47 

BO DATA 169.7.141,134,5,169,13,3 
3,310,355, 169,64, 141,4,3, 169. 16B 
S 

90 DATA 192, 141 , S. 3, B8. 96, 120. 16 
9, 1S4, 141,4,3, 169, 165, 141,5. 1566 

100 DATA 3,169,14.141,134.5,141. 
35,506. 169.6. 141 ,33.506,66.96.15 
65 

110 DATA 33.154,165,72,136,75,15 
2,72, 162,0, 165,20, 133,354, 165,21 
, 1747 

130 DATA 54, 101.554. 133, 554. 1B9, 
0,2,240, 18,69,254. 133 . 254 , 233 . 18 
9,2346 

130 DATA 0,2.240.9,24.101.354,13 
3,254,532,308,233,159.1,141,134, 
3134 

140 DATA 2.165.554.74,74,74,74,3 
2, 156, 192,32.210,255,165,254,41. 
2054 

150 DATA 15,33,156.193.35.510.35 
5. 169.13.35.510,555,159.13.33,21 
0, 1995 

160 DATA 355,169,7,141.134,3.104 
,168, 104, 170, 104,96,34. 105.48.50 
1 , 1632 

170 DATA 58,16,1,96.24,105,7.96, 
0,0,0,0,0,0,0,0.403 

bv Eric Dovlc 
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Easy Entry C64 



Mnemonic 

[RIGHT] 

[LEFT] 

[DOWN] 

[UP] 

[Fl] 

[F2] 

[F3] 
[F4] 
[F5] 
[F6] 
[F7] 
[F8] 

[HOME] 
[CLR] 
[RVSON] 
[RVSOFF] 



Symbol Keypress 



-T ~ 



CRSR Left/right 

SHIFT & CRSR left/right 

CRSR up/down 

SHIFT & CRSR up/down 
fl key 

SHUT & H key 

B key 

SHIFT & f3 key 

15 key 

SHIFT & (5 key 
17 key 

SHIFT & H key 

CLR/HOME 

SHUT & CLR/HOME 

CTRL & 9 

CTRL & 0 



Mnemonic Symbol 

[BLACK] 

[WHITE] 
[RED] 
[CYAN] 
[PURPLE] 



IGREEN] 
[BLUE] 
[YELLOW] 
[POUND] 

[LARROW] 

[UPARROW 

[PI] 

[INST] 

[REV T] 

[CTetler] 

[Sletter] 



Keypress 

CTRL & I 

CTRL & 2 
CTRL & 3 
CTRL & 4 
CTRL & 5 
CTRL & 6 
CTRL & 7 
CTRL & 8 
£ 

SHIFT & t 
SHIFT & INST/DEL 
see text 
CBM + letter 
SHUT + letter 



Checksum Program 

The hcxadeeimal numbers appearing 
in a column to the left of the listing 
should not be typed in with the 
program. These are merely checksum 
values and are there to help you get 
each line right. Don't worry if you 
don't understand the hexadecimal 
system, as long as you can compare 
two characters on the screen with the 
corresponding two characters in the 
magazine you can use our line 
checking program. 

Type in the Checksum Program, 
make sure that you've not made any 
mistakes and save it to tape or disk 



immediately because it will be used 
with most of the present and future 
listings appearing in Your 
Commodore. 

At the start of each programming 
session, load Checksum and run it. 
The screen will turn brown with yellow 
characters and each time you type in a 
line and press the RETURN key a 
number will appear on the screen in 
white. This should be the same as the 
corresponding value in the magazine. 

If the two values don't relate to one 
another, you have not copied the line 
exactly as printed so go back and check 
each character carefully. When you 
find the error simply correct it and 



press RETURN again. 

If you want to turn off the checker 
simply type SYS49152 and the screen 
will return to the familiar blue colours. 
You can then do whatever it was you 
wanted to do and if this doesn't use the 
area where Checksum lies you can go 
back to it with the same SYS 
command. 

No system is foolproof but the 
chances of two errors cancelling one 
another out are so remote that we 
believe our listings are more reliable 
than any other magazine in the world. 
So get typing! 
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PROGRAMMING 



We would all like to make more use of data files but 
lack of clear advice as to how to index/retrieve the data 
often deters programmers from using relative tiles to 

their full advantage 



A 



I 

"Si 

5 



5 



Sw 



problem often encountered with 

databases employing relative files is that 
of not being able to rapidly read records 
without specifying the DOS record 
number. Clearly, searching and 
comparing in record number sequence 
through an entire data file in order to find 
one record defeats the purpose of random 
access files. Imagine being able to access 
a record by defining the data of one or 
a combination of more than one field. 

For example if you have a relative 
data file containing six fields: 

SURNAME 

F1RSTNAME 

BIRTH DATE 

STREET 

TOWN 

COUNTY 

You may need to find a record by 
specifying the SURNAME and 
FIRSTNAME without even knowing by 
what record number the data had been 
filed. The purpose of a good database 
would preclude you keeping a list of 
record numbers and records so it would 
be most unlikely thai you would know the 
DOS record number anyway. 

The solution to this problem of how 
to find records by specifying the data lies 
in the maintenance of one or more HASH 
FILES. Yes. you may say "why HASH 
a program that's probably already a 
HASH?" well hashing doesn't quite mean 
lo make a mess of it! 

One creates a number called a hash 
number by performing a mathematical 
calculation upon the data in defined data 
fields. Thai hash number (referred to 
hereafter as HASHfNo.)) is ideally 



unique to any set of data. Let us lake for 
example, the following record and 
perform a calculation upon it. 

The record could be as shown in 
Figure I 

A short Basic program, normally a 
subroutine, such as that in Figure 2 could 
be used to work out the HASHfNo.) 

NOTE although I have used variable 
names of more than two characters 
length. Commodore Basic will only 
recognise the first two letters. 
The variable MF (multiplication factor) 
is calculated to give the appropriate range 
of HASHfNo.) numbers and the SF 
(subtraction factor) lowers the range 
minimum to zero. The range must 
generally be twice the total number of 
possible records to be written — this 
reduces the chance of a double up of the 
unique HASHfNo.) numbers. 

Lets us take another working 
example. If we apply the formula in the 
program in Figure 2 we will find that the 
name HENRY BLOGGS produces a 
HASHfNo.) of 791. The name JULIA 
FORSE produces a HASHfNo.) of 1359. 

Writing data 

Right, how do we use this HASHfNo.)'? 
We find the next available record number 



(from a sequential file named 
LASTUSED.DAT) and write the six 
fields of data into that record number in 
the main datafile. MAIN DATA . DAT. We 
then calculate HASHfNo.) and write the 
used record number as DATA into record 
no HASHfNo.) in the index file 
INDEX.DAT. 

Well, that may seem complicated but 
by the careful use of files a very 
retrievable database can be structured. 

Getting it back 

Reading records is a reverse of the above 
although a little simpler, the user is asked 
tbrtheSURNAMSand FIRNAMSof the 
record that is required lo be retrieved. 
The HASHfNo.) is then calculated with 
exactly the same formula, it will be the 
same as it was when the record was 
written as nothing has changed in the 
calculations. The data is then read from 
record number HASHfNo.) in 
INDEX.DAT. That data will be the 
record number that the six fields of DATA 
were written to in MAINDATA.DAT so 
it only remains to read that data from 
MAINDATA.DAT. 

If you can lorsec that you may need 
to search for data by other fields or 
combinations of fields, more index files 



Figure 1 








FIELDNO 


FIELDNAME 


FIELDTYPE 


DATA 


1 


SURNAMS 


ALPHA 


BLOGGS 


2 


FIRNAMS 


ALPHA 


HENRY 


3 


BIRDATS 


ALPHA 


200953 


4 


STREETS 


ALPHA 


56 THE CLOSE 


5 


TOWNS 


ALPHA 


HORNCHURCH 


6 


COUNTYS 


ALPHA 


ESSEX 
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GET DATA S 
VALIDATE 



GET DATA TO BE 
SEARCHED FOR* 
VALIDATE 



CALCULATE 
HASH= 



GET NEXT 
AVAILABLE 
RECORD POO IRNI 

FROM 
'LATEST NO DAT* 



WRITE RN TO 
RECORD NO 
HASH IN 
'INDEX.DAT' 
(RELATIVE 
FILE) 



MAINDATA.DAT' 
IMAIN RELATIVE 
DATAFILEI 







WRITE DATA 
TO RECORD NO 

RN IN 
MAINDATA.DAT' 



WRITING 



Figure 3 



CALCULATE 
HASH = 




READ RN 
FROM 
RECORD NO 
HASH= IN 
INDEX.DAT' 



OUTPUT 



READING 



) 



could be maintained - these could even 
be created at a later date by reading the 
MAINDATA.DAT file sequentially and 
creating additional index hash files. 

Duplicates 

Now. one obvious problem is that of a 
HASHlNo.) occurring more than once. 
To safeguard against this possibility, 
before writing to record number 
HASHfNo.) in INDEX.DAT. read that 
record to ensure that no data exists. If it 
does . go down and read the next record 
and when you find a blank one, use thai. 
Accordingly this means that after looking 
up a record in INDEX.DAT and reading 
the pointed record from 
MAINDATA.DAT, you must compare it 
with the specified data to ensure that it 
is ihe correct one. If il is not. go back to 
INDEX.DAT and read the next 
HASH(No.) down and read the record 
pointed to in MAINDATA.DAT. Keep 
doing this until you find the match. 

Mathematics will show vou thai the 
chances of a double up of a HASH(No. ) 
arc unlikely as long as you have a 
maximum HASHtNo.) of two times the 
maximum number of records !o be 
written into MAINDATA.DAT. 

Getting MF and SF 

To calculate MF and SF. one must define 
the characters that we are going to hash 
and index against. Take the example 
given. The maximum HASH(No.) will 
occur if the name is ZZZZZZ ZZZZZZ 
(SURNAMS and FIRNAMS 
respectively). The minimum HASH(NoJ 
will occur if the name is AAAAAA 



AAAAAA ( SURNAMS and FIRNAMS 
respectively). 

To calculate the range of possible 
HASHf No.), one must decide the 
maximum number of records to be 
written to MAINDATA.DAT. Lets lake 



the maximum here as 1200 records. We 
therefore require a HASHf No.) range of 
0000—2400 and as each record in 
INDEX.DAT will occupy four bytes ( 
2400 has four characters). Ihe total space 
to be occupied by INDEX.DAT will be 
2400*4=9600 byies. 

The variable SF is chosen to move 
ihe range of minimum HASHtNo.) - 
maximum HASH (No.) to 0000-2400. 

O.K. this may all seem rather 
complex and lime consuming but if you 
have any doubts lo the speed of this 
system try ihe following: 



Sel up a dummy data file with six 
fields of random dummy data in each 
record(have 1000 records). Hide a record 
Of known data near the end of it at say, 
record number 941. Now. OPEN and 
READ ihe file in sequential order from 
record number one and at each record 
compare Ihe read data with that known 
lo be 'hideing'. 

Go away and have lunch and if you're 
lucky the experiment may have found ihe 
'hidden' record by the lime you return. 

Try setting up a small system as 
described above with an indexed HASH 
file and RUN il. You will now appreciate 
what relative data tiles and good indexing 
is all aboul! 

Multiple hash files 

A word of caution. Before deciding lo 
index every field or every combination of 
fields consider what ihe most likely 
unique fields will be. Index files occupy 
a significant amount of disk space and I 



found il unnecessary in the example 
database to index more than two 
combinations. I have indexed 
SURNAMS/FIRNAMS together and 
SURNAMS/BIRDATS together as it is 
very unlikely to find two BLOGG's with 
ihe same BIRDATS. In fact on a base of 
27000 records, no two have ever matched 
in ihat way. So. despite Commodore's 
deploringly slow DOS. quite a workable 
database has been created. 

The simple flowchart in Figure 3 
summarises the use of hash files, both 
writing or creating and reading. 



VARIABLES: 

H(l) Is ihe left most character form the siring SURNAMS 
H(2) Is the second character from Ihe siring SURNAMS 
H(3) Is the third character from the siring SURNAMS 
H(4) Is the left most character from the sting FIRNAMS 
H(5) Is the second character from the string FIRNAMS 
H(6) Is the third character from the siring FIRNAMS 



Figure 2 

10 SURNAMS="BLOGGS": F1RNAM$="HENRY" 
20 HASHSTRING$=LEFTS(SURNAM$,3)+LEFT$(FIRNAM$,3) 
30 PRINT HASHSTRINGS: REM IT SHOULD BE "BLOHEN" 
40 FORI = IT06:H(I)=ASC(MID$(HASHSTRING$.I.I+l)):NEXTI 
50 MF=6.64IE-11: SF=724: REM SEE TEXT 

60 HASH(No.)=(INT((H{l) ! *H(2)*H(3))+(H(4)*H(5)*H(6))*MF))-SF: 

REM DO THE CALCULATION 
70 PRINT HASH(No.): REM IT SHOULD BE 791 
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C64 UTILITY + DISK 



Fast 



Formatter 



Fed up with waiting for your disks to be formatted? Speed 
things up with this handy program. 



fast Formatter is a utility that, quite 
simply, fully formats a disk with ID in 
a fraction under 10 seconds. 

The routine will no doubt gain most 
benefit when included within a 
database/filing program that calls upon a 
disk routine before saving file data. 
Provision for listing the directory ol a disk 
without destroying a program in memory 
is also made. 

Getting it in 

The program is presented here in the form 
of a Basic loader. This should be typed 
in using the SYNTAX CHECKER 
program that can be found on the 
LISTINGS page of this magazine. Once 
you RUN the program it will POKE the 
necessary machine code into memory. 
Should you want to SAVE the machine 
code for later retrieval by another 
program etc. then you can do so with the 
following instructions: 

POKE43.0:POKE44,202:POKE45.168: 
POKE46.207:SAVE"MU\8 



Using the program 

The routine is screen-option driven and 
should cause no problems. To activate the 
routine a SYS call is required. To start 



| PROGRAM : FAST FHHI1QT I ER 



30 4 REM • 10 5ECQND FORMATTER 
25 8 REfl • RESIDENT IN HIGH ME 

n • 

8F 12 REM • TQ ACTIUATE ROUTINE 

F2 IB REM • 'SYS 51712' 

EE 20 REM • lil ILL RESET TO HARM 

C3 24 REM * START WHEN FINISHED 

0E 28 REM • THUS KEEPING BASIC 

93 32 REM • MEMORY INTACT. 

C9 3G REM • BY BEN UtELLBAY 1S8G 

DA 40 REM " FOR ' YOUR COMMODORE 

01 44 F0RI-S1712T0531G0:READA:P 

OKEI . A: C"C*A: NEXT 
Fl 48 IFC<>17GB1BTHENPRINT"ERR0 

R IN DATA! " : END 



the program simply type: 
SYS 51712 

Now you can format a blank disk without 
the normal 80-second wait!! 



IB 50 DATA 76,125.205,165.185,2 
01 ,B, 176,4, 1GS.8, 133. 186, 16S 
,5,162 

73 51 DATA 207,160,202,32,134.2 
02 , 1 69 . 6 , 162 , 183 , 1 60 , 203 , 32 , 

134.202.163 
E2 52 DATA 7.162,169.160,204,32 

. 134 . 202 , 169 , 1 , 162 . 192 , 160 , 0 

,141,202 

79 S3 DATA 202.142,200,202.140, 
201 ,202, 169,97, 141. 199,202,3 
2, 123,202, 160 
S3 S4 DATA 0,185,197,202,32,168 
, 255 , 200 . 192 , 6 , 208 . 245 , 160 , 0 
,173, 167 

7B 55 DATA 2,32.168,255,32,174, 
255 , 162 , 0 , 1G0 , S , 142 , 192 , 202 , 
140, 193 

60 56 DATA 202,32,123,202,160,0 
, 185 , 1B9 , 202 , 32 . 168 , 255 , 200 . 

132,5 ,208 
98 57 DATA 245.32.174,255,234,3 

2,123, 202 , 76 , 1 74 , 2S5 , 165 , 186 
,32,177,255 
93 SB DATA 169,111.32,147,255,3 

6.141. 185 , 202 , 134 , 251 , 132 , 25 

2, 160,0, 140 
D4 59 DATA 184,202,32,123,202,1 

62 , 0 , 1 89 , 1B1 , 202 , 32 , 1 68 , 255 , 

232.224,6 
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AF 60 DATA 208 , 245 . 162 , 32 , 177 , 2 

51 , 32 , 1 68 , 255 . 200 . 202 , 208 . 24 

7,32,174,255 
E3 61 DATA 192,0,208,219.86,77, 

45,87,224.7,32,234,234,77,45 

,69 

F3 E2 DATA 0,5,234.234,234,77,4 
5 , 87 , 192 , 0 , 1 , 234 , 234 , 234 , 234 
,173 

BB 63 DATA 121,5,133.18.173,122 
,5.133.13,169.1,133,34,169,1 
0.133 

AS 64 DATA 186,120.173,0.28,8,4 
, 141,0,28,168,45, 133.74,32, 1 
47 

00 65 DATA 5,198.74,208,249,162 
,0,32, 160,5,32, 188,5, 169. 23B 
,141 

E2 66 DATA 12,28,32,0,6,133,182 
,173,0,28,41.251,141,0,28,16 
9 

92" 67 DATA 236,141,12.28,88.144 
,1,96,32,148,7, 163, 18,133,6, 
169 

0B 68 DATA 0,133,7,32,200,7,32, 
190 , 7 . 1 63 , 255 . 14 1 , 1 , 3 , 230 , 7 

F2 69 DATA 32,200,7,76.5,208,66 
, 76 . 6S . 78 . 75 , 160 , 1 60 , 160 , 160 
, 160 

68 70 DATA 160,160,160,160,160, 
160, 160, 160,66,87, 160,50.65, 
160, 160, 160 

63 71 DATA 160,160,2,174,0.28,2 
32 , 32 , 160 , 5 , 1 36 , 208 , 246 , 230 , 
34,76 

IS 72 DATA 189,5,160,2,174,0,28 
, 202 , 32 , 160 , 5 , 1 36 . 208 . 246 . 36 
.138 

A7 73 DATA 41,3,133,187,173,0,2 
8,41 ,252,5, 187, 141,0,28, 163, 
4 

27 74 DATA 133,187,162,0,202,20 

8,253, 198, 187,208,249,96, 165 

.34.32,75 
66 75 DATA 242.138,10,10,10,10. 

10.133,68, 173.0,28,41,159.5, 

68 

4S 76 DATA 141,0.28,96,173,12,2 
8,41.31.9,132,141,12,28,169. 
255 

50 77 DATA 141,3,28,141,1,28,96 
,165,34,32,75,242, 133,67,32, 
213 

81 78 DATA 5,169,255,141,1,28,1 
63,0, 133,188, 170, 168, 165. S7, 
153,0 

6A 79 DATA 3.165,188,153,2.3.16 

5,34,153,3,3, 16S, 19, 153,4,3 
03 80 DATA 165,18,153,5,3,169,1 

5, 1S3, 6, 3, 153,7,3, 169.0,89 
48 81 DATA 2,3,89,3,3,89,4,3,89 

,5.3,153, 1,3,24,152 
7A 82 DATA 105, B, 168, 230 , 18B, 16 
5, 188. 197,67, 144, 193, 152,72, 
232.13B.1S7 
26 B3 DATA 0,4.232,208.250,169. 
75,141,0.4,169,3,133,43,32,4 
8 

7F 84 DATA 254 , 104 , 1 6B , 1 36 , 32 , 2 

29 , 253 , 32 , 24S , 253 , 169 . 4 , 1 33 , 

49,32,233 
4F 85 DATA 245.133,58,32,143.24 

7, 169, 0, 133,50, 169, 25S , 141 , 1 

,28, 162 

41 B6 DATA S , 80 , 254 , 184 , 202 , 208 

. 2S0 , 162 , 1 0 , 164 , 50 . 80 . 254 , 16 
4.185.0 

. 



0F 87 DATA 3,141.1.28,200,202,2 
08,243.132,50,162,8,80,254,1 
84, 169 

2F 88 DATA 85,141,1,28,202,208, 
245, 163.255,162.5,80,254, 184 
.141,1 

43 83 DATA 28,202,208,247,162,1 
87 , 80 . 254 , 184 , 1 B9 , 0 , 1 , 141 . 1 . 
28 , 232 

D7 90 DATA 208,244,160,0,80.254 
, 184 , 177 . 48 , 14 1 . 1 , 28 . 200 , 208 
, 245 , 169 

97 91 DATA 85 , 162 . B , 80, 254 , 184 , 
141, 1,28,202,208,247, 198, IBB 
,208, 154 

C2 92 DATA 80,254, 184,80,254. IB 
4 , 76 , 0 , 7 . 32 , 0 , 254 , 1 65 , 192 , 20 
9,3 

83 93 DATA 76,103.7,163,200,133 
. 189, 16S.67, 133. 188, 169,0. 13 
3.50.32 

68 94 DATA 119,7,162,10.164,50. 
80 , 254 , 1 B4 , 1 73 , 1 , 28 . 21 7 , 0 . 3 , 
208 

9D 95 DATA 48.200,230,50,202,20 

B , 233, 32, 113, 7, 160, 187,80,25 

4. 184, 173 
02 36 DATA 1 , 28 , 217 , 0 , 1 , 20B . 26 . 

200 , 208 .242,162, 252 . 80 , 254 . 1 

84, 173 

43 97 DATA 1,28,203,48,208,11,2 

00 , 202 , 208 . 242 , 138 , 188 , 20B , 1 

93.76, 103 
E8 38 DATA 7,138,183,208.178,13 

B, 186,240,3,76,0,6, 169.3,56, 

96 

11 99 DATA 16S, 34, 201, 35, 240, 6, 
32, 130, S, 76, 0,6, 169. 1 ,24,96 

A2 100 DATA 169,208,141.5,24,16 
9. 3, 44. S, 24, 16,12.44,0,28,46 

79 101 DATA 246,173,1,28,184,16 
0 , 0 , 96 , 1 04 . 1 04 , 76 , 88 . 7 . 32 , 1 3 

0. 7 

3F 102 DATA 169,3,133,110.32,18 

3,238,160,27, 185,103,5.153, 1 
44.3, 136 

6D 103 DATA 16,247,169,65,141,2 

,3,163,42,141,3,3,169,17,141 
.72 

F7 104 DATA 3,163,252,141,73,3, 
96,160,0, 152, 153,0,3,200,208 
,250 

4A 105 DATA 96.169.144,133,0,16 
5 . 0 , 48 , 252 , 96 , 234 , 234 , 234 , 23 
4, 160,0 

57 105 DATA 185,32,207,240,5.32 
,22,231.200,208,245, 168, 185, 

59,207,240 
78 107 DATA 6,32,22,231,200,208 

,245,32, 19,206, 160,0, 185,74, 

207,240 

9A 108 DATA 6,32,22,231.200,208 
, 245 , 32, 70 , 206 , 32 , 9 , 207 , 160 , 

1 , 132 

3D 103 DATA 212,185,88,207,240, 
6 , 153 , 240 , 4 , 200 . 208 . 245 , 32, 3 
,202, 160 

CB 110 DATA 0,185,120.207,240.6 
. 1 S3 , 240 , 4 , 200 , 208 , 245 , 32 , 24 
3,206,208 

FF 111 DATA 3,32,123,206,160,0, 
185 , 103 . 207 , 240 , 6 , 1S3 . 240 . 4 , 
200,208 

CA 112 DATA 245,32,243,206,208, 
1 9 , 32 , 9 . 207 . 234 , 234 , 234 , 1 60 , 
0. 132.212 



3A 113 DATA 76,126.205,136,16,2 

48,76,126,205,169,147,32,22, 

231,96,234 
75 114 DATA 234,234,234,234,234 
, 234 , 234 , 234 , 234 , 234 , 234 , 234 
,234,234,234,234 
0A US DATA 234,234,234,169,1,1 

33, 212 , 160, 0 , 32 , 207 , 255 , 153 , 

144,207,200 
02 116 DATA 201,13,208,245,192. 

18,144,5,32,114,206.240,230. 

136, 152,240 
CS 117 DATA 232,200.168,160,153 

, 143,207, 192,18,144.246, 136, 

185. 144,207, 153 
2B 118 DATA 54,203,136,16,247,9 

6. 169. 1, 133,212,160,0,32,207 

,255.153 

84 119 DATA 144.207,200,201,13, 
208,245, 132,3,240,5,32, 110.2 
06, 76, 70 

3F 120 DATA 206,173,144.207,141 
,72,203, 173.145,207, 141,73,2 

03.96. 132, 1 
90 121 DATA 240.251.169.20.32,2 

2,231, 136,208,248,96, 169.0, 1 

33,212. 169 

74 122 DATA 147.32,210,255,234, 
234,234.234, 163. 1 , 133, 183.16 

9,207, 133, IBB 
54 123 DATA 169.134,133,187,169 
,36, 133, IBS, 32,213, 243, 165, 1 

86,32, 180, 25S 
BB 124 DATA 165,185,32.150,255. 
163,0.133, 144,160,3, 132, 183, 

32. 165,255 
81 125 DATA 133,135,32.165,255, 

133 , 196 , 164 , 144 , 208 . 53 , 164 . 1 

83, 136,208,235 
CS 126 DATA 160,6.169,32,32,22, 

231 , 1 36 , 208 . 250 , 166 , 1 95 , 1 65 , 

136,32,20S 
6C 127 DATA 189.163,32,32,22,23 

1 ,32, 165,255, 166, 144,208, 19, 

201,0.240 
F2 128 DATA 5,32,22,231.76,214, 

206, 169, 13,32,22.231 , 160,2,2 

0B, 187 

47 129 DATA 76 , 66 . 246 , 32, 22B , 25 

5 . 208 . 25 1 , 32 , 228 , 255 , 240 , 251 

, 201,89, 20B 
3A 130 DATA 1,36.201.78,208,237 

.169. 1.36,234,234.234,234,23 

4 , 234 , 234 
3C 131 DATA 234,234,234,234,234 

, 234 , 234 , 234 , 234 , 234 , 234 , 234 

.234,234,36,234 
13 132 DATA 147,13.32,70.73,82, 
77,65,84,84,63.82,32.79,80,6 
9 

84 133 DATA 82,65,84,73,79,78,6 

5,75,32,58,0,13,32,68,73,83 
17 134 DATA 75,32,78,65,77,63,3 

2 , 42 , 32 , 0 . 1 3 , 32 . 68 , 73 , 83 , 7S 
D3 135 DATA 32,73,46,68,46,42,3 

2,0,32,6, 15, 18, 13, 1,20,20 
F3 136 DATA 3,14,7,46,46,32,0,3 

2,1,14,15,20,8,5,18.32 
BC 137 DATA 4,3,13.11,32.63,32, 

0,32.3,1,20,1,12,15,7 
38 13B DATA 21,5,32,63,32,0,36, 

14 , 254 , 246 ,83,0,0,0,0,0 
30 139 DATA 66,87,13,160,160,16 

0, 160, 160, 150, 160, 160, 160, 16 

0,160,160,160 
E2 140 DATA 160,160,0,255.0,2,0 

,16,255 
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MULTIFILE 64 



A database that can easily be tailored to your own needs. 

For C64 plus disk drive. 



_/Vjfultiffle is a disk-based data filing 
program. It has been constructed to offer 
the routines necessary for such a 
program, such as input and retrieval of 
data, as well as printing out neatly in 
columns. However it has been designed 
to allow it to be easily tailored to suit your 
own requirements. It could easily be 
converted to handle names and addresses 
(for personal use or club records), a 
collection catalogue, a stock control 
index, in fact the possibilities are endless. 

Storing large amounts of array data 
in Basic introduces large time delays in 
array handling, so the main data storage 
routines of this program have been written 
in machine code. However, the main 
program is in Basic for ease of 
customisation for your own use. 

Multifile comprises of two programs; 
the first is a Basic loader program for the 
machine code section, this loads the 
machine code (in a series of DATA 
statements) into memory at 49152. When 
the data is correct, the machine code 
section (just under Ik) is SAVEd as a 
machine code file to disk. The main 
program can then load this file directly, 
and the loader with the machine code data 
need only be used once, hence saving 
time when the program is in use. 

The second program is the Basic- 
section of the filing system itself, and 
provides easy access to the machine code 
routines used. 

Data storage 

The data is stored by the program in a 
series of records, each record comprising 
of a scries of data items about one 
particular item. Each of these data items 
is called a field. The data is stored as in 
Figure I. 



Multifile will handle up to 10 fields, 
and up to 255 records in a file. Field 
length is not fixed, but the total length of 
all fields must not exceed 255 characters 
(this should not be a problem if a printout 
of the file on a standard 80-column 
printer is desired). The number of records 
in the file is updated as the program is 
used, but the number of fields required 
and their lengths must be set up as part 
of the program before any data files are 
created. Several versions of the program 
would required to be kept if the program 
was used for a variety of filing 
applications. 

Setting up for use 

The only lines needing to be changed in 
the Basic program are lines 500-560 
(though the program title in lines 210 and 
1000 could be altered also), and these 
should be changed to your requirements 
as you enter the listing. Line 500 defines 
variable F. the number of fields in the files 
handled. Lines 510-520 define the length 
(ie. number of characters) of each ol the 
fields (if F is less than 10. the unused field 
lengths should be set to zero), and lines 
530-560 define the titles of each of the 
fields. These titles are used within the 
program to refer to the columns, and are 
also printed as a header on any printout 
of the file. Note that the length of the title 
must be the same as the corresponding 
field size, otherwise an error will occur 
on running the program. If necessary, the 
field titles should be filled out with spaces 
eg. if FL(2)= 10. then 
FT$(2)="SURNAME...". With these 
variables defined correctly, the program 
is ready to run. 

The memory used by the program is 
as follows: 6 bytes + F bytes (F=number 



of fields) + record storage. Each record 
uses memory as follows: 2 bytes + F 
bytes + I byte for each character in each 
field. All records are stored as siring 
(ie.character) data, including any 
numbers stored. Memory is hence used 
more efficiently (and more quickly) than 
from Basic. 

Data is stored upward from location 
20000 <$4E20). giving a maximum 
storage capacity of just over 20k per file. 
Note that records are not necessarily 
stored in memory in numerical order, 
though this is transparent to the user ie. 
they always appear to be in order when 
listed. Data is saved as a block of program 
memory from 20000 to the end of the file. 

I sing the program 

Upon RUNning the program, the 
machine code section is loaded in from 
disk if it is not already in memory. A 
menu of functions is then presented, and 
offers the following options (note that if 
entry to options is made in error, pressing 
RETURN from most prompts causes a 
return to the previous menu) : 
View Data in File 

After choosing the output device (screen 
or printer (device 4)). or exit back to the 
menu, all of the data file currently in 
memory is listed out. The field titles are 
printed at the top. with the fields neatly 
printed out in vertical columns beneath 
their headings with one space between 
each column. The number of each record 
is printed down the left side. Listing can 
be slowed by pressing the CTRL key. and 
can be paused completely by holding 
SHIFT or clicking SHIFT LOCK. Pause- 
is indicated by a red border, and the 
listing will continue when SHIFT is 
released. 
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HOW IT WORKS. 

10-410 Titles and load machine code. 
500-590 Sei up data lengths and check. 
600-620 Set up file memory area. 
700-790 Set up addresses of machine code routines. 

1000-1120 Print main menu and get selection. 

1500-1570 Print out data to screen or printer. 
2000-2140 Add record to file. 
2500-2590 Change record in file. 
3000-3080 Delete record from file. 
3500-3990 Disk file handling procedures. 
4000-4390 Data processing routines. 
4500-4540 Exit program. 

Subroutines 

6000-6080 Input new or modified record. 

7000-7070 Get disk filename and store in memory. 

8000-8030 Read record from machine code buffer. 

8500-8620 Check for empty file memory. 

9000-9050 Place record into machine code buffer. 

9500-9700 Wait for SPACE lo be pressed. 

9800-9850 Check disk drive error channel and report. 



Add a Record to File. 

If more than one record is in the file 
already, the program asks tor the number 
of the record after which the current one 
is to be added. Each of the field titles is 
then given, and an input is requested for 
this field. The whole record is then stored 
in memory by the machine code routine. 
Change Record in File. 
The program prompts for the number of 
the record to be changed, and withdraws 
this record from memory. Each field title 
is then given, along with the current entry 
in this field, and a new entry is prompied 
for. If no change is required to this entry. 



then pressing RETURN on it's own will 

indicate this. When all fields have been 

done, the old record is deleted from 

memory, and the new one added. 

Delete Record from File. 

The program prompts for the number of 

the record to be deleted, and it is deleted 

from memory and printed on the screen. 

Disk File Handling. 

Selecting this option presents another 

menu, offering file handling options as 

follows; 

Load Data File 

A file name is requested (the .FILE 



extension should not be given), then the 
required file is loaded from disk. If a file 
transfer error occurs, this is indicated, 
otherwise a successful LOAD is 
indicated. After LOADing. a check is 
made to see if the file is compatible with 
the field lengths set up within the 
program, and if non-compatibility is 
found, a warning is given on the screen. 
Save Data File 

A file name is requested, then the data 
file currently in memory is SAVEd to 
disk. If a file transfer occurs, this is 
indicated, otherwise a successful SAVE 
is indicated. Note that the extension 
.FILE is added to the given file name to 
indicate in the disk directory that this is 
a data file. 
Disk Directory 

A directory of the current disk is 
displayed on the screen. Pressing CTRL 
will slow the listing, and pressing SHIFT 
will pause the listing. 
Rename a File 

The file's current name is requested, 
followed by it's new one. the file is then 
renamed on the disk. 
Delete a File 

The file's name is requested, and the file 

deleted from the disk. 

Return to Main Menu 

The program returns immediately to the 

main menu screen. 

Process Data. 

Selecting this option presents another 

menu, offering data processing options as 

follows: 

Search tor Data 

A search string of between 2 and 40 
characters is asked for. the memory is 
scanned for all occurrences of this string. 
All records containing the search string 
are printed out in full along with their 
numbers, and a total number of finds is 
printed. 
Sum column 

A menu of field titles is printed, and a 
prompt for one of these is given. All 
elements in the requested column are then 
added up. and a total and average for the 
column are printed. This process may 
take some time for a long data file. 
Return to Main Menu 
The program returns immediately to the 
main menu screen. 
Exit Program. 

After asking for confirmation of exit, the 
program exits back to Basic. 



Figure 1 










FIELDS 








(No.) 


NAME 


ADDRESS 


PHONE 


MEMBER 


R 001 


J.Adams 


3. Main St. 


123456 


654 


E 




Any town. 






C 002 


F. Jones 


KXHigh St. 


987654 


321 


O 




Uptown. 






R 003 


G.Smith 


54. New St. 


888666 


432 


D 




Downtown. 






S 004 


P.Young 


17. Low Rd. 


765765 


223 






Any town. 
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MULTIFILE MC GEN 



41 10 REM **• MULTIFILE MACHINE 

CODE GENERATOR "*• 
AB 20 REM *** BY IAIN MURRAY <C 

) 1986 *** 
08 30 REM *** FOR YOUR COMMODOR 

E *•* 

34 50 POKE 53280 .6 : POKE 53281,1 



1C 



IB 



7F 

E3 
11 

B4 
BE 

9A 

41 



8A 

E9 

DB 
3E 
64 

7B 

BE 

EC 

51 

33 

61 

83 

B3 

D9 

36 

74 

1A 

41 

CB 

7B 

CF 



60 PRINT " 1 CLR . BLACK , DOWN3 . R 
IGHT3.RVS0N1 MULTIFILE MACHI 
NE CODE GENERATOR [RVSOFF]" 
70 PRINT " I DOWNS. RIGHT31 THIS 
WILL SAVE 'FILECODE' TO DIS 
K" 

80 PRINT" (DOWN5.RIGHT71LOADI 
NG DATA - PLEASE WAIT" 

100 AD-49152;C-0 

110 READ A: POKE AD.A:C-C*A:A 
D-AD+1 

120 IF AD<50135 THEN 110 
130 IF A-195 AND C-130189 TH 
EN 150 

140 PRINT " (DOWN3.RIGHT71ERR 

OR IN DATA! ! " :END 

150 PRINT " IDOWN3.RIGHT51DAT 

A OK - PRESS [RVSONI SPACE [ 

RVSOFF 1 TO SAVE" 

160 GET A$:IF A$<>" " THEN 1 

60 

170 POKE 43,0:POKE 44,192:PO 
KE 45. 220: POKE 46,195 
180 SAVE "FILECODE", 8 
190 END 

1000 DATA 165.251.56,233.1.1 

33,251.165,252.233 

1010 DATA 0.133.252.96.165.2 

51.24.105.1.133 

1020 DATA 251,165,252,105.0, 

133,252.96,169,44 

1030 DATA 133,251,169.78,133 

.252,96.160,0.177 

1040 DATA 251,201.255.208.7. 

200.177.251.201.255 

1050 DATA 240.6,32.14,192,76 

.37,192,200,177 

1060 DATA 251.96,173.2,206,2 

08,12.160.255,169 

1070 DATA 1.141.3.206,169.3. 

76,83,192.160 

1080 DATA 7.169.4.170.32,186 
.255, 169,0.32 

1090 DATA 189,255.32.192,255 
.169.3.24,109.2 

1100 DATA 206.170.32.201.255 

.76.101.193.32.231 

1110 DATA 255,169.0.141.3.20 

6.96.169.3.141 

1120 DATA 5.206.24.109.32.78 
,141.4.206.169 

1130 DATA 0.141.6.206.172.4. 

206.177.251.32 

1140 DATA 210.255.238.4,206. 

238.6.206.172.5 

1150 DATA 206.177.251.205.6. 

206.208.232.172.5 

1160 DATA 206.185,31.78.56.2 



33. 1,205,6.206 
51 1170 DATA 48,20,152,56.233.2 

.205.32.78,240 
6A 1180 DATA 11.169.32.32.210,2 

55,238.6,206.76 

92 1190 DATA 158.192.169.32,32. 
210.255.238.5.206 

82 1200 DATA 173.5,206,56.233.3 

,205,32,78.208 
BA 1210 DATA 174.169.13,32,210. 

255.32.210.255.96 
57 1220 DATA 255.255.32.62.192. 

240.1.96.169.1 
CD 1230 DATA 141.7.206.32,94.19 

5,32.28.192.32 
40 1240 DATA 37.192,201,255.240 

.46.205,7,206,240 
A3 1250 DATA 6.32.14,192,76.239 

. 192.32.41, 195 
B6 1260 DATA 32.60,195.32.117,1 

92.238.7.206,173 
5D 1270 DATA 142.2.201.1.208.8. 

169,2.141.32 
BE 1280 DATA 208,76,13.193,169. 

6,141,32.208.76 
EB 1290 DATA 236,192,76.108,192 
.255.0, 169,8, 170 

93 1300 DATA 160,255.32.186.255 
. 173.0,207, 162, 1 

51 1310 DATA 160,207.32.189,255 

,32.28.192.32,37 
92 1320 DATA 192.201.255.240.6. 

32. 14. 192.76,62 
8F 1330 DATA 193.32.14,192.32.1 

4.192.32.14.192 
53 1340 DATA 166.251.164.252.16 

9.31.133.251.169.78 
F7 1350 DATA 133.252.169.251.32 

.216.255.32.183.255 
25 1360 DATA 41.128.141.8.206.9 

6.255,255.169.8 
E4 1370 DATA 170.160.255.32,186 

.255.173.0.207.162 
A9 1380 DATA 1.160.207,32.189.2 

55.169.0,32.213 
DA 1390 DATA 255.76.101.193.255 

.255.32.28.192.32 
8F 1400 DATA 37.192.201,255.240 

. 24 . 205 , 1 . 206 . 240 
47 1410 DATA 2.16,6.32.14.192.7 

6.143.193,24 
A7 1420 DATA 105,1.145.251.32.1 

4.192.76,143.193 
FF 1430 DATA 160.0.32.14,192.32 

,14.192.173.1 
87 1440 DATA 206.24.105,1.145.2 

51 .32. 14. 192. 185 
OA 1450 DATA 0.205.145.251.200. 

204.0.206.208.245 
E8 1460 DATA 169,255.145.251.20 

0,145.251.200.145.251 
ED 1470 DATA 238.33.78.96.255.2 

55.32.28.192,32 
DO 1480 DATA 37,192.205.9,206.2 

40,6.32.14.192 
2C 1490 DATA 76.223.193.169.0.1 

41,2,206,32,62 
5A 1500 DATA 192,32,117,192.32. 

108.192.174.32.78 
27 1510 DATA 169.3.168.24.109,3 

2.78.24, 113,251 
6B 1520 DATA 200.202.208,249.14 

1,11.206. 169.0. 141 
B9 1530 DATA 10.206.172.11.206. 
177.251.160.0.145 



E5 1540 DATA 251.201.255.240.9, 

140.10.206.32.14 
06 1550 DATA 192.76.20.194.238. 

10.206.173.10.206 
C2 1560 DATA 201.3.240.6.32.14. 

192,76.20.194 
AF 1570 DATA 32.28.192.32.37.19 

2,201.255.240,27 
8E 1580 DATA 56,237,9.206,176.6 

,32,14,192.76 
90 1590 DATA 61.194,160,2.177,2 

51.56,233.1.145 
44 1600 DATA 251.32.14.192.76,6 

1.194.206.33.78 
EF 1610 DATA 96.0.255,169.48.13 

3.252.169,2.133 
79 1620 DATA 253.169.0,133,144. 

169.36,133.251.169 
BD 1630 DATA 251.133.187.169.0. 

133.188,165.253.133 
8E 1640 DATA 183.169.8.133.186. 

169,96.133.185.32 
4A 1650 DATA 213.243.165,186.32 

.180.255.165.185.32 
3F 1660 DATA 150,255.164,144,20 

8,70,160.6.132.251 
DO 1670 DATA 32,165.255,166.252 

, 133,252. 164. 144,208 
F3 1680 DATA 55.164,251.136.208 

.238.164,252.32,205 
E6 1690 DATA 189.169.32.32.210. 

255.32.165,255.72 
17 1700 DATA 173,142,2,201.1.24 

0,249.104.166,144 
63 1710 DATA 208.24,170,240,6,3 

2,210.255.76.184 
98 1720 DATA 194.169.13.32.210. 

255.165.197,201.63 
DF 1730 DATA 240,4.160,4.208.18 

8.32.66,246.96 
92 1740 DATA 255.255.32.28.192. 

173.2.207.24.105 
F2 1750 DATA 2.141.2.207,32.37. 

192,205.15.206 
A4 1760 DATA 240.6.32.14,192.76 

,242. 194. 173.32 
C8 1770 DATA 78.170.160.3.204.2 

,207.208.3.141 
BF 1780 DATA 3.207.24.113.251.2 

00.202.208.241.24 
44 1790 DATA 105.3.141.0.206.16 

0.3.177.251.153 
BF 1800 DATA 253,204.200.204.0, 

206.208.245.96,160 
5E 1810 DATA 0.185.12.206.32.21 

0.255,200. 192,3 
C3 1820 DATA 208.245,169.32.32. 

210.255.96.238.14 
47 1830 DATA 206.173.14.206.201 

.58.208,23.169.48 
02 1840 DATA 141.14,206.238.13. 

206.173.13,206.201 
AD 1850 DATA 58.208.8.169.48.14 

1,13.206.238,12 
20 1860 DATA 206.96.169,48.141, 

12.206.141,13.206 
31 1870 DATA 141.14.206.238.14. 

206.96.0.255.32 
88 1880 DATA 94.195,162.0.142.4 

.207.232,142.7 
CF 1890 DATA 206.32,28.192.32.3 

7.192.201.255.208 
AA 1900 DATA 1.96.205.7.206.240 

.6.32.14,192 
4E 1910 DATA 76,126.195.32.14,1 
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92,160,0,32.14 
D4 1920 DATA 192.177,251,217.61 

.3.240,13,201.255 
84 1930 DATA 208.240.32.60.195. 

238.7.206.76.126 
64 1940 DATA 195.200.204.60,3.2 

08.230.32,0.192 
FD 1950 DATA 160.0,177.251.201. 

255.208,245.200.177 
59 1960 DATA 251.201.255.208,23 

8.32.41.195.32,117 
6A 1970 DATA 192,32,60.195.238. 

7.206,238,4.207 
7E 1980 DATA 76.123.195 



PROGRAM: MULTIFILE 



68 10 REM •** MULTIFILE-CONVERT 
IBLE FILE PROCESSOR **» 

AB 20 REM BY IAIN MURRAY (C 

) 1986 **■ 

08 30 REM "** FOR YOUR COMMODOR 
E -•• 

17 40 REM *** DISK-BASED FILE S 
TORAGE **• 

93 80 UP$-CHR$(147HCHR$U42) ;D 

NJ-CHRS ( 147) *CHR$ ( 14) +CHR* ( B 

) :REM ' CASES 
21 100 PRINT " 1 BLACK ) " *DN$ : REM 

' BLACK /LOWER CASE 
IE 110 POKE 53280. 6 : POKE 53281, 

1 : REM • SCREEN COLOURS 
AF 200 IF PEEK(49152)-165 THEN 

300 

89 210 PRINT DN$+" I D0WN2 , R1GHT1 
0,RVSON] ISM.SU.SL.ST.SI . SF 
.SI.SL.SE) " 

6A 220 PRINT " [D0WN4 . RIGHT6 , SL. 
SO.SA.SD.SI .SN.SG.SSPC.SM.SA 
.SCSH.SI ,SN,SE.SSPC.SC,SO,S 
D. SE.SSPCSS.SE. SC. ST. SI .SO, 

SNr 

D6 230 PRINT" |DOWN3,RIGHT13,RVS 
ON) (SP.SL.SE.SA.SS.SE) [SW, 
SA.SI ,ST] IRVSOFF) " 
6F 240 LOAD "FI LECODE" , 8 . 1 
1C 250 POKE 56, 78: REM * MEMORY 
TOP 

AO 300 DIM FL(10) ,FT$(10) .FS$(1 
0) 

18 400 MM - 20000: REM • START 0 
F DATA AREA 

9F 410 8F-52480:REM • M/C INTER 

FACE BUFFER 
D7 500 F-"*:REM * NUMBER OF FI 

ELDS 

DE 510 FL(1)-***:FL<2)-***:FL<3 
)-•*• :FL(4)-'"- :FL(5) ■*** : RE 
M • LENGTH OF FIELDS 
CB 520 FL(6) -••* :FL{7) -•»• ;FL(8 
) -*** :FL(9) :FL(10) :R 
EM * LENGTH OF FIELDS 
67 530 FT$(1)-"1ST.SI.ST.SL.SE) 
I": FT* (2)-" 1ST. SI ,ST.SL,SEI 
2" :FT$(3)-"(ST.SI .ST.SL.SE. 
SSPC)3":REM • FIELD TITLES 
IF 540 FTJ(4)-"[ST. SI. ST.SL.SE] 
4": FT* (5) -"1ST. SI. ST.SL.SE] 



5" :FT*(6)-" (ST. SI .ST.SL.SE] 
6":REM * FIELD TITLES 
93 550 FT*(7>-"1ST. SI .ST.SL.SE. 
SSPC17":FT*(8)-"(ST.SI.ST,SL 
,SE.SSPC]8":FT*(9)-"IST.SI,S 
T , SL . SE , SSPC J 9 " : REM • FIELD 
TITLES 

Bl 560 FT* ( 10) -" 1ST, SI . ST, SL.SE 
,SSPC]10":REM • FIELD TITLES 

EE 565 IF F<2 OR F>10 OR FOINT 
IF) THEN PRINT " [ SF I I ELD NUM 
BER ERROR": END 

9C 570 FOR 1-1 TO F:IF LEN { FT* ( 
D)OFL(I) THEN PRINT "ISS]T 
RING"; I; "LENGTH ERROR" : END 

86 580 FS*(I)-FT*(I) :IF LENfFSS 
(I))>12 THEN FS*(I)-LEFTJ(FS 
*(I) , 12) 

D2 590 NEXT 

07 600 POKE MM . F : POKE MM+1.0:RE 
M * SET UP MEMORY AREA 

F8 610 FOR 1-1 TO F : POKE MM+l+I 
,FL(I) : NEXT 

3C 620 FOR I-MM+12 TO MM+14:POK 
E I,255:NEXT 

E3 700 PT-49374:REM PRINTOU 
T *** 

F5 710 SV-49449:REM •*" SAVE FI 
LE *•• 

BF 720 LD-49520:REM •** LOAD FI 
LE *** 

OA 730 AR-49548:REM *** ADD REC 
ORD ••" 

80 740 DR-49628:REM ••• DELETE 
RECORD 

07 750 DY-49765:REM DISK DI 
RECTORY •'• 

C7 760 SR-49894:REM RECORD 
SEARCH 

08 770 SH-50031:REM **• DATA SE 
ARCH »•• 

40 775 REM END OF CODE AT 5 

0138 *** 

CB 780 FT*-"[D0WN.RIGHT7.RVS0N| 
FILE TRANSFER COMPLETED [RV 
SOFF ) " 

49 790 FE*--[DOWN.RIGHT9)FILE T 

RANSFER ERROR! ! " 
8D 999 REM ••• MAIN MENU ••• 
F4 1000 PRINT DN**" IDOWN2 . RIGHT 

13.RVSON] ISM.SU.SL.ST.SI .S 

F. SI. SL.SE] " 
4E 1010 PRINT "(D0WN.RIGHT13.RV 

SON) [SM. SA.SI .SN] [SM.SE.5 

N . SU ) " 
32 1020 PRINT "IDOWN2, RIGHTS] 1) 

(SSPC.SV)IEW fSDlATA IN [SF] 

I LE" 

9C 1030 PRINT " [DOWN. RIGHT8] 2) I 
SSPC.SAJDD [SRIECORD TO [SF] 
I LE" 

BA 1040 PRINT " [ DOWN , RI GHT8 ] 3) f 
SSPC.SC1HANGE [SRIECORD IN [ 
SF] ILE" 

59 1050 PRINT " [ DOWN . RI GHT8 ) 4 ) 
[SD] ELETE [SRIECORD FROM [SF 
I I LE" 

OC 1060 PRINT "[DOWN,RIGHT8)5) 
ISDIISK [SFIILE [SH) ANDLING " 

9E 1070 PRINT " IDOWN.RIGHT816) 

(SP)ROCESS fSDJATA" 
DE 1080 PRINT " [DOWN.RIGHT8J7) 

[SE1XIT (SPIROGRAM'' 
54 1100 PRINT " [DOWN2 . RIGHT4 . SW 



IHICH DO YOU REQUIRE (1-7) ? 

F2 1110 GET A$:A-VAL(A*) :IF A< 1 

OR A>8 THEN 1110 
A4 1120 ON A GOTO 1500,2000,250 

0.3000,3500.4000,4500 
6A 1499 REM VIEW FILE DATA 

» » * 

54 1500 PRINT " [CLR . D0WN2 . RIGHT 

11. RVSON.SVJIEW [ SD 1 ATA IN [ 
SF] ILE" 

F2 1505 GOSUB 8500: IF MX-0 THEN 
1000 

CE 1510 PRINT "(DOWN2.RIGHT4.SO 

1UTPUT TO [SS1CREEN OR [SP]R 

INTER. OR" 
7B 1520 PRINT "[ R I GHT4 | RETURN T 

O [SMIAIN [SMJENU I1SS]/[SP] 

/(SM)) [SSPC]?" 
BA 1530 GET AS: IF A$-"M" THEN 1 

000 

53 1534 DV-0:IF A*-"P" THEN DV- 
l:GOTO 1538 

31 1536 IF A*<>"S" THEN 1530 
4C 1538 POKE 52738. DV 

37 1540 PRINT " I D0WN2 , R I GHT6 . SP 
IRESS [RVSON.SS.SH.SI.SF.ST, 
RVSOFF) TO PAUSE LISTING (DOW 
N2J" 

OD 1550 IF DV-1 THEN PRINT "[RI 
GHT15,RVSON] ( SP , SR . SI . SN . ST 
.SI ,SN,SG] IRVSOFF, DOWN) " -.OP 
EN 1.4. 7: GOTO 1555 

F6 1553 OPEN 1.3 

47 1555 PRINT»1."# " ;: FOR 1-1 
TO F : PRINTtl , " " ; FT* ( I ) : :NEX 
T:PRINT*1 :PRINT#1 :CL0SE1 

1A 1560 SYS PT:IF PEEK(52744)<> 

0 THEN PRINT " [UP2,RIGHT9,SP 
.SR. SI .SN.ST.SE.SR.SSPC.SN.S 
O, ST. SSPC. SA.SV. SA.SI .SL.SA. 
SB. SL.SE)! " 

32 1570 GOSUB 9600: GOTO 1000 

OD 1999 REM **• ADD DATA TO FI L 
E ••* 

63 2000 PRINT " (CLR. DOWN2. RIGHT 

12. RVSON.SA1DD (SD)ATA TO |S 
F]ILE(DOWN21" 

31 2010 PRINT " [DOWN2.RIGHT4.SD 
10 YOU WISH TO ADD A RECORD 
<(SY]/[SN)) ?" 

27 2020 GET A*: IF A*-"N" THEN 1 
000 

19 2030 IF A$<>"Y" THEN 2020 
8F 2040 MX-PEEK(MM-fl) : IF MX-0 T 
HEN MX-1 

91 2045 IF MX-1 THEN A-l:GOTO 2 
080 

72 2050 PRINT " (DOWN2.RIGHT4.SW 
IHICH RECORD DO YOU WISH TO 
ADD" 

B8 2060 PRINT " (RIGHT4) AFTER ( 

1 -"^MX;") : (SSPC)"; 

C5 2070 INPUT A* : A-VAL ( A*) : I F A 

<1 OR A>MX THEN 2050 
BF 2080 POKE 52737. A: IF PEEK (MM 

+11-0 THEN POKE 52737.0 
ID 2120 RP-0:GOSUB 6000 
F7 2130 SYS AR 

13 2140 PRINT " [DOWN2.RIGHT13.S 

RJECORD (SA)DDED": GOSUB 9600 

:GOTO 1000 

CD 2499 REM CHANGE A RECORD 

• • • 

EB 2500 PRINT "[ CLR . DOWN2 , RIGHT 
13,RVSON.SC)HANGE [SRIECORD" 
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59 2310 GOSUB 8500: IF MX-0 THEN 
1000 

AE 2520 PRINT " IDOWN2 . RIGHT4 , SW 
IHICH RECORD DO YOU WISH TO 
CHANGE" 

E3 2530 PRINT "[RIGHT4H 1 -" ; M 

X; " ) " ; 

04 2540 AS-"":INPUT Mi IF LEN(A 

S>-0 THEN 1000 
26 2550 A-VAL(A$>:IF A< 1 OR A>M 

X THEN 2520 
CA 2560 POKE 52751. A: SYS SR:GOS 

UB 8000:RP-1 :GOSUB 6000 
AC 2565 PRINT " 1WHITEI " : : REM ' 

WHITE FOR INVISIBILITY 
3E 2570 POKE 52745, A : SYS DR: REM 

" REMOVE OLD RECORD 
26 2580 POKE 52737 . A-l : SYS AR:R 

EM * ADD NEW RECORD 

30 2590 PRINT " (BLACK. UP. RIGHT1 
0.SR1ECORD [SO HANGED": GOSUB 

9600:GOTO 1000 
04 2999 REM "** DELETE A RECORD 
• • * 

74 3000 PRINT " I CLR . DOWN2 , R I GHT 
1 3 , RVSON . SD I ELETE ISR1ECORD" 

IF 3010 GOSUB 8500: IF MX-0 THEN 
1000 

31 3020 PRINT " [DOWN2 , RI GHT4 . SW 
1HICH RECORD DO YOU WISH TO 
DELETE" 

59 3030 PRINT " [RIGHT41 ( 1 -":M 
X ; ") " ; 

AA 3040 AI-"":INPUT A$:IF LEN( A 

$1-0 THEN 1000 
06 3050 A-VAL(AS):IF A< 1 OR A >M 

X THEN 3020 
ID 3060 PRINT " IDOWN2 \ " : POKE 52 

745. A: SYS DR 
B5 3070 PRINT " IDOWN . RI GHT1 2 . SR 

1ECORD f SD ) ELETED " 
B6 3080 GOSUB 9600:GOTO 1000 
65 3499 REM •** DISK FILE HANDL 

ING '"• 

5F 3500 PRINT DNS* " I DOWN2 . R I GHT 
XI. RVSON. SD) ISK ISF1ILE ISH) 
ANDL I NG I DOWN2 ) " 
18 3510 PRINT " [RIGHTS) 1) [SL)0 

AD (SD)ATA (SF)ILE" 
55 3520 PRINT " (DOWN , RIGHTS J 2) 

(SS)AVE I SD ] ATA [SF1 ILE" 
F3 3530 PRINT " I DOWN . R I GHTS J 3 ) 

[SD1ISK (SD J I RECTORY" 
6F 3540 PRINT " [DOWN . R I GHT8 ) 4) 

[SR1ENAME A [SFI ILE" 
DF 3550 PRINT " (DOWN.RIGHT8I5) 

[SD ) ELETE A (SF) ILE" 
F3 3560 PRINT " [ DOWN . R I GHT8 ] 6 ) 
(SR)ETURN TO (SM1AIN (SM)ENU 



E2 



3E 



3570 PRINT "(D0WN2,R1GHT4.SW 
IHICH DO YOU REQUIRE (1-6) ? 



3580 GET A$:IF A$<"1" OR AS > 
"6" THEN 3580 
8B 3590 A-VAL(AS) :ON A GOTO 370 

0 . 3600 . 3600 , 3900 . 3950 . 1000 
5B 3600 PRINT UPS*"' [DOWN2. RIGHT 
4 1 PRESS (RVSON) SHIFT(RVSOFF) 
TO PAUSE D I RECTORY ( DOWN2 1 " 
DB 3610 SYS DY: GOSUB 9500: GOTO 
3500 

AB 3700 PRINT UPS*" (D0WN2. RIGHT 

15. RVSON) LOAD DATA" 
AB 3710 GOSUB 7000: IF FM-0 THEN 



3500 

56 3740 GOSUB 9700: PR I NT " [DOWN 
, RIGHT15 . RVSON) LOADING [RVS 
OFF) " 
4A 3750 SYS LD 

40 3760 IF PEEK(52744)<>0 THEN 
PRINT FES: GOTO 3780 

DB 3770 GOSUB 9800: IF ER<20 THE 
N PRINT FTS 

41 3775 IF ER>-20 THEN 3780 

F9 3776 F-PEEK (MM) :F0R 1-1 TO F 
:FL<I)-PEEK(MM+I+1) 

62 3777 IF FL 1 1 ) <>LEN(FT$ < I ) ) T 
HEN PRINT " [DOWN, RIGHT10) INC 
OMPATIBLE FILE!":GOTO 3780 

52 3778 NEXT 

68 3780 GOSUB 9500:GOTO 3500 
3E 3800 PRINT UPS*" [DOWN2, RIGHT 

15, RVSON) SAVE DATA" 
2C 3810 GOSUB 8600: IF MX-0 THEN 
3500 

CI 3820 GOSUB 7000: IF FM-0 THEN 
3500 

27 3840 GOSUB 9700: PRINT "(DOWN 

.RIGHT15. RVSON] SAVING (RVSO 

FFJ" 
4A 3850 SYS SV 
36 3860 GOTO 3760 
BF 3900 PRINT UPS+" [DOWN2 , RIGHT 

14, RVSON) RENAME FILE" 
A7 3910 PRINT " [DOWN2 , RI GHT4 ) GI 

VE PRESENT FILENAME :" 
BX 3920 PRINT " [DOWN. SPC6) 12345 

67890123456" 
FE 3925 INPUT " (SPC4) " ; CNS : FM$- 

CNS;IF LEN(CN$)-0 THEN 3500 
88 3927 IF LEN(CNS) >16 THEN 391 

0 

E2 3930 PRINT " [DOWN2 . RIGHT4) G I 

VE NEW FILENAME :" 
22 3935 PRINT " [DOWN, SPC6] 12345 

67890123456" 
A7 3940 INPUT " (SPC4) " :NNS : IF L 

EN(NNS)-0 THEN 3500 
00 3942 IF LEN(NNS) >16 THEN 393 

0 

C6 3945 PRINT " [DOWN . RIGHT15 . RV 

SON) RENAMING [RVSOFF1" 
A3 3949 OPEN 1 . 8 . 15 . "R : "+NNS* "- 

"+CNS: CLOSE 1: GOSUB 9800 : GOS 

UB 9500: GOTO 3500 
FA 3950 PRINT UPS* " [DOWN2 . RIGHT 

1 4 . RV SON ) DELETE FILE" 
02 3960 PRINT " [DOWN2 . RIGHT4] GI 

VE FILENAME : 
4F 3970 PRINT " (DOWN . SPC6 ) 1 2345 

67890123456" 
4D 3980 INPUT " [SPC4] " ;CNS:FM$- 

CNS:1F LEN(CN$)-0 THEN 3500 
2A 3982 IF LEN(CNS) >16 THEN 396 

0 

30 3985 PRINT " [ DOWN . RIGHT14 . RV 

SON) DELETING [RVSOFF1" 
4A 3990 OPEN 1,8, 15. "S: "+CNS : CL 

OSE 1: GOSUB 9800:GOSUB 9500: 

GOTO 3500 
84 3999 REM PROCESS DATA ** 

• 

B6 4000 PRINT " [ CLR , DOWN2 . RI GHT 

14. RVSON. SP1R0CESS (SD) ATA" 
65 4004 GOSUB 8500 : I F MX-0 THEN 
1000 

CB 4010 PRINT " [D0WN2 . RIGHT4 1 1 ) 

(SS)EARCH FOR |SD) ATA" 
A5 4020 PRINT " (DOWN . RIGHT4 ) 2) 
(SS)UM [ SD I ATA [SCJOLUMN" 



9A 4030 PRINT " (DOWN . RIGHT4) 3) 

[SR1ETURN TO (SM)AIN (SM)ENU 

ii 

8A 4040 PRINT " IDOWN2 . RIGHT4 . SW 
IHICH DO YOU REQUIRE (1-3) ? 

46 4050 GET AS: A-VAL(AS) : IF A< 1 

OR A>3 THEN 4050 
J9 4060 PRINT AS: "[DOWN)" :ON A 

GOTO 4100.4300.1000 
89 4100 PRINT " [DOWN , RIGHT4 . SG ) 

IVE SEARCH STRING : "; 
CI 4110 INPUT S$:S-LEN(SS) : I F S 

<2 OR S>40 THEN 4100 
61 4120 PRINT " (DOWN) ": POKE 828 

,S:FOR l-l TO S:POKE 828*!. A 

SClMIDStSS. I .11) : NEXT 
E7 4130 SYS SH 

77 4140 PRINT " [ DOWN . R IGHT4 . ST) 

OTAL OF" : PEEK (529961 : "OCCURR 

ENCF.S FOUND" 
7C 4150 GOSUB 9600: GOTO 1000 
C8 4300 FOR 1-1 TO F STEP 2:PRI 

NT " (RIGHT3) " ; I : " (LEFT) ) ";F 

S$(I) ; 

C4 4305 IF I*1>F THEN PR I NT : GOT 
O 4310 

B5 4307 PR I NT TAB ( 20 ) ; I + 1 ; " [ LEF 

Tl) ";FSS(I+D 
06 4310 NEXT : PRINT "(DOWN. RIGHT 

4,SW)HICH COLUMN DO YOU WISH 
TO SUM" 

AA 4315 PRINT "(RIGHT4)( 1 -";F 

6F 4320 INPUT AS : A-VALI AS) : IF A 

<1 OR A>F THEN PRINT "IDOWN) 

" :GOTO 4300 
3C 4330 N-0: PRINT " [ DOWN2 . RI GHT 

15. RVSON) 1SS.SU.SM2.SI ,SN.S 

GI [RVSOFF)" 
90 4340 FOR W-l TO MX : POKE 5275 

I .W: POKE 52994. A: SYS SR 
47 4350 RL-PEEK (BF*A-1 ) :RX-PEEK 

(52995) +BF:NS-"" 
39 4360 FOR J-0 TO RL-1:N$-N$*C 

HR$(PEEK(RX*J) ) : NEXT 
ID 4370 N-N+VAL(N$) :NEXT 
2B 4380 PRINT " [DOWN2 , RIGHT4. SC 
)OLUMN" : A;"C';FSS(A) ;") TOTA 

L -";N 

7B 4385 PRINT " [D0WN.RIGHT4) ( [S 

T ) OTAL OF" ;MX; "ITEMS) " 
5C 4390 PRINT " IDOWN.R1GHT4.SC] 

OLUMN AVERAGE -" ;N/MX; GOSUB 

9600:GOTO 1000 
19 4499 REM **• EXIT PROGRAM ** 

« 

27 4500 PRINT " [CLR . DOWN2 . RI GHT 
14. RVSON, SEJXIT [SPIROGRAMS 
0WN21" 

64 4510 PRINT " [DOWN2 . RIGHT4 . SD 
10 YOU WISH TO EXIT ([SY]/[S 
NI) ?" 

DD 4520 GET AS: IF A$-"N" THEN 1 
000 

EE 4530 IF ASO"Y" THEN 4520 
56 4540 PRINT UPS*CHR$(9) +" [DOW 

N20J " : END 
DE 5999 REM "* GET NEW DATA I 

CORD "•• 
F2 6000 FOR 1-1 TO F 
38 6020 IF RP-1 THEN PRINT "[DO 

WN , RIGHT4 . SE1 XI STING ";FS$(I 
) IS :":PRINT " (RIGHT4I ";D 
S(I) 

72 6025 IF RP-0 THEN D$(I)-"" 
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B2 6030 A$-"":PRINT " (DOWN.RIGH 
T4.SN1EW ";FS$(I) ;" [SI ITEM 

13 6035 INPUT " [RIGHT4] " ; A$ 
7E 6040 IF LEN(A$)-0 THEN 6055 
06 6044 IF LEN(A$X-FL(I) THEN 
6050 

4B 6046 PRINT " IDOWN , RIGHT4 . SD 1 
ATA |SI INPUT [STJOO ISLJONG! 
! ISSPC] ( fSMJUST BE" 

A8 6047 PRINT " IRIGHT3) " ;FL( I ) : 
"CHARACTERS LONG OR LESS)":G 
0T0 6020 

57 6050 D$( I ) -A$:DL< I ) -LEN<A$) 

EO 6055 IF LEN(D$(I))-0 THEN PR 
INT " [DOWN . RIGHT4, SN| O 1SD1A 
TA fSI INPUT! ! ":GOTO 6020 

28 6060 NEXT I 

E9 6070 GOSUB 9000 

59 6080 RETURN 

74 6999 REM *** GET FILENAME AN 

D STORE **• 
00 7000 PRINT "ID0WN2.RIGHT22J1 

2345678901" 
AF 7010 PRINT " | RIGHT4 ) GI VE FIL 

ENAME : fSSPC] "; 
88 7020 FM$-" -- : INPUT FM$ : FM-LEN 
IFMS) 

Al 7025 IF FM-0 THEN 7070 
70 7030 IF FM<2 OR FMU1 THEN 7 
000 

73 7040 FM$-FM$+".FILE" 
69 7050 POKE 52992. FM»5 
7C 7060 FOR 1-1 TO FM+5:POKE 52 



992+1, ASC(MIDI(FM$. 1,1)) :NEX 
T 

37 7070 RETURN 

75 7999 REM *** GET RECORD FROM 
M/C BUFFER *** 

9D 8000 PRINT " [ DOWN . R I GHT1 3 . RV 
SON) [SP.SL.SE.SA.SS.SE.SSPC 
.SW.SA.SI .ST] IRVSOFF]" 

F7 8005 FOR 1-1 TO F:DL(I)-PEEK 
(BF+I-1) :Df (I)-"":NEXT 

FC 8010 TT-0:FOR 1-1 TO F 

58 8020 FOR J-l TO DL1II : DS ( I ) - 
D$ ( I ) + CHRS ( PEEK (BF+F+TT+ J-l ) 
) :NEXT:TT-TT+DL(1) : NEXT 

F3 8030 RETURN 

98 8500 MX-PEEKlMM+l) 

2E 8510 IF MX-0 THEN PRINT "[DO 

WN4.RIGHT10.SN.SO] [SR.SE.SC 

.SO.SR.SD.SS] [SI.SNJ [SF.SI 

.SL.SE] ! " :GOSUB 9600 
E7 8520 RETURN 
3C 8600 MX-PEEK(MM»1> 
91 8610 IF MX-0 THEN PRINT "[DO 

WN4.RIGHT10IN0 RECORDS IN FI 

LE! " : GOSUB 9500 
43 8620 RETURN 

B4 8999 REM *** PUT RECORD INTO 
M/C BUFFER •** 

59 9000 PRINT " [DOWN . RIGHT13 . RV 
SON ! [SP , SL . SE . SA . SS . SE . SSPC 
.SW.SA.SI ,ST] [RVSOFFJ" 

7A 9005 FOR 1-1 TO F : POKE (BF+I 

-1) ,DL(I) : NEXT : TT-0 : BL-F 
BC 9010 FOR 1-1 TO F 
B6 9020 FOR J-l TO DL(I) : POKE ( 



BF+F+TT+J-1) ,ASC(MID$(D$(I) , 
J.l)) 

37 9030 NEXT:TT-TT+DL{ I ) :BL-BL+ 

DL(I) :NEXT 
EE 9040 POKE 52736 . BL : REM * BUF 

FER LENGTH 
F3 9050 RETURN 

F6 9499 REM *•• WAIT FOR SPACE 

PRESS *** 
61 9500 PRINT " [ DOWN . R I GHT7 J PRE 

SS [RVSON) SPACE [RVSOFFJ TO 
CONTINUE" 
39 9510 GET A$:IF A$<>" " THEN 

9510 
DB 9520 RETURN 

2D 9600 PRINT " [DOWN. RIGHT7. SP] 
RESS [RVSON] (SS,SP,SA,SC.SE 
] [RVSOFF] TO [SCJONTINUE" 
B5 9610 GOTO 9510 

2C 9700 PRINT " (DOWN. RIGHT1 1 ] PR 

EPARE DISK AND" :GOTO 9500 

CF 9799 REM *** GET DISK STATUS 
• ** 

D3 9800 OPEN 15 . 8 , 15 : INPUT#15 , E 

R.ERS: CLOSE 15 
DE 9810 IF ER<20 THEN 9850 
20 9815 PRINT "[UP2)";FE$ 
6E 9820 PRINT " [ DOWN . R I GHT9 ] ERR 

OR #";ER 

11 9830 PRINT "IDOWN. RIGHT9) ("; 
ER$; ") " 

50 9840 PRINT " ( DOWN . RI GHT9 ] FIL 

ENAME : ";FMJ 
2E 9850 RETURN 



TRYING TO USE YOUR COMPUTER?... 

YOUR 




Send this form with your remittance to: 
INFOSET LTD. , Times House, H9 The Marlou es, 
Hemel Hempstead, Herts. HP1 IBB. 



C64 UTILITY 



Disk File Describer 



Keep track of which files do what with this handy disk 

utility. 



p. 



icture this scenario, you have jus! 
spent hours on your epic program, and 
have yet to tie the loose ends, but it's gel- 
ting late, and you'll finish it oft the next 
day. You SAVE your routine with alt 
others, any old file name will do, and 
pack up for the night. 

Unfortunately, the next day you're 
busy, and the day after you've just bought 
a cracker of a game and then spend four 
months getting an unbeatable score on it. 
You (lick through your old disks 'cos 
you're running short on space, and you 
find that disk you worked on all that time 
ago. "I wonder what these files are. 
names like TRY1 and MIA even a 
TZXE27!" 

Your epic has gone, hasn't it! Has it? 
Not now! This little program will help 
you to remember even the most 
odd-named files you happened to SAVE 
with a description of up to 55 characters 
in length! A SYS for an old game 
perhaps? No need to remember it now. 
write it in the file describer and it will 
never get lost. 

The Commodore DOS on the 64 is 
unfortunately limited in several ways, not 
least in the fact that file names may only 
have 16 characters. For most applications, 
it isn't enough, this program allows you 
to add a definitive description of 55 
characters to any file on the disk. Mere- 
ly create the descriptive titles and SAVE 
them onto the particular disk to which it 
refers. Then, simply LOAD and RUN 
Disk File Describer and. if you desire, 
additions and editions can be made at any 
time. 

Getting it in 

Disk File Describer is a Basic program, 
and thus fairly simple to follow and type 
in. Use the SYNTAX CHECKER pro- 
gram that is found on the LISTINGS page 
to help you with your typing. 



After RUNning. the program loads 
the description file, if one exists, then 
I£)ADs the directory. On screen, you are 
presented with a menu offering five 
choices. 

Option I views the directory together 
with the descriptions and a further menu 
at the bottom of the screen gives options 
to add or alter the current text. The file 
names are show n in blocks of six. If there 
are more files on disk keys f5 and 17 allow 
you to page back and forth as required. 
Pressing the f3 key puts you into edit 
mode. 

Once into the edit mode you enter the 
file number (the number next to the files 
on the screen). The cursor then moves to 
the start of the light field in which you 
can make the necessary text edition. If 
you have made an incorrect choice of tile 
then just press RETURN and the direc- 
tory screen will return w ith no alterations 
made. All characters can be entered 
w ithin the description area except inverted 
commas (quote marks) and although the 
cursor travels automatically to the next 
text line it cannot distinguish ends of 
wx>rds unlike a word processor. If you are 
a tidy sort of person, you will no doubt 
space your description so that it is easily 
readable at a later date. The INST/DEL 
key erases as per it's normal function, and 
RETURN after completion of entering 
your desired text brings the directory 
screen back for you to continue entering 
descriptive text or. by pressing II and op- 
tion 3. SAVE the description file onto 
disk. Make sure that enough room exists 
on the disk for this file. 

far as the other options arc concern- 
ed, option 2 gives you normal DOS com- 
mands such as scratch, validate and 
rename. It also formats disks. 

As stated, option 3 SAVEs the direc- 
tory descriptions to disk as a sequential 
file. If a file is already present on disk, 
the program w ill overwrite it with the cur- 



rent data in memory. Choosing option 4 
simply allows you to work with other 
disks and rcRUNs the program as this op- 
tion is chosen. 

To exit the program, choose option 5. 

I am sure you w ill find many uses for 
this program, and it would be interesting 
to hear how it could be adapted to in- 
dividual needs. 



PR 



84 1 REM 



80 



CA 



27 2 REM • DISK FILE DESCRIBER 

3B 3 REM • BEN WELLBAY 

■ 

3B 4 REM * YOUR COMMODORE 1986 



REM 



6 POKE53280,U: POKE53281.il: 
PRINT" ICLR.D0WN6,RIGHT4.C8)D 
ISK FILE DESCRIBER" 
2C 7 PRINT"[DOWN2.RIGHT4]PLEASE 

WAIT - READING DATA" 
39 8 FORI-830TO902:READA:POKEI . 
A: NEXT 

90 9 A1$-"[HOME.DOWN2U":FL-1 
61 10 A2S-"[RVSON,SPC19. RVSOFF, 

SPC4 . RVSON , SPC36 1 " 
71 11 FA-144:DIMDT$(FA) , JS(FA) . 

K$ (FA) .JIS(FA) 
CE 12 FORI-0TOFA:DT$(I)-CHR$(32 

)+" ISPC18] " : NEXT 
FE 13 PRINT"[UP,SPC11]R£ADING D 

I RECTORY " : 0PEN1 . 8 . 0 . "$ " : SY 

S830:CLOSE1 
83 14 GOSUB88 

6F 15 POKE198.0:PRINT"[CLR,DOWN 
1 "SPC(6) "I RVSON 1 [1) [RVSOFF] " 

SPCI3)"GET DISK DIRECTORY" 
AB 16 PRINT" ID0WN2J "SPC(6) " [RVS 

ON] [2) (RVSOFF) "SPC(3) "DISK D 

RIVE COMMANDS" 
D8 17 PRINT" [DOWN2J "SPC(6) " [RVS 

ON) [3) [RVSOFF] "SPC(3) "SAVE D 

ESCRIPTIONS FILE" 
45 18 PRINT" [DOWN2] "SPC(6) " IRVS 

ONI [4] [RVSOFF) "SPC( 3) "CHANGE 
TO ANOTHER DISK" 
4B 19 PRINT" [DOWN21 "SPC(6) " [RVS 



I 
I 
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ONI 151 1RVS0FF1 "SPC (3) "QUIT P 


59 


58 PR I NTA 1 S " ( DOWN , SPC26 ] " : I F 


3C 


96 NEXTQ2: IFQ2-Q3*1THENJ$(Q1 




ROGRAM" 




DF< 7THENQ6 -DF : GOT06 1 




)-"" 


4B 


20 PRINT" [DOWN21 "SPC ( 21 ) " (RV 


46 


59 Q6-INT(DF/6) *1 :Q7-Q6"6-DF 


Bl 


97 NEXTQ 1 : RETURN 




SON) • IRVSOFF) " : PR I NT" (UP] " 




:Q6-6-Q7 


ID 


98 INPUT* 15. ER.ERS: IFER-OTHE 




SPC(6) "OPTION NUMBER [RVSON 


14 


60 IFQ6-0THENQ6-6 




NRETURN 




] [RVSOFF]"; 


E8 


61 PRINT" (HOME. DOWN] ":FORI-l 


FE 


99 I FER-62ANDFL-1THENFL-0 : RE 


27 


21 POKE204 0 GETNKS • IFNKS< "1 




TOQ6: PRINT" [DOWN] " : NEXT 




TURN 




"QRNKS >"5 "THEN21 


46 


62 DT$ (DF) -LEFTS (DT$ (DF) . 16) 


2F 


100 PRINT" [ CLR . D0WN4 ] D I SK ER 


14 


22 POKE204 1 ■ POKE 207 0- PRINT 








ROR: [RVSON] "ER. ERS : PRINT" [HO 




" (RVS0N1 "NKS ;NK-VAL(NK$) 


84 


63 F1S-"" 




ME . DOWN4 ] " SPC { 14 ) " ( RV SON ] [ R 


18 


23 QNNKGQTQ24. 101 ,46 . 116 . 125 


5B 


64 PRINT" [UP] "SPCU9) " [RVSON 




VSOFF)": END 








] >"SPC|LEN(F1$1) ; :CRS-"< " :QB 


57 


101 PRINT" [CLR. DOWN2. RVSON )D 


76 


24 Q3-PEEK (0) -1 -Q1-1 

Aa a W — 1 1_* ft_*i ^ \ f A> ' ^ 




-LEN(CRS) :NM-1 




ISK COMMANDS [RVSOFF]": PRINT" 


A6 


25 IFQ1- X33THEN28 


BC 


65 PRINT" [RVSON] "MIDSICRS.NM 




( DOWN2 ] SUMMARY- " : PR I NT 


B3 


26 IFQl<0ANDQ3/6-INT(Q3/6)TH 




,2) ;"[LEFT1"; : NM— NM" ( NM< QB ) 


C2 


102 PRINT" [DOWN] V0"SPC(20) "V 




ENQ1-Q3-5 :G0T028 




+ 1 




ALI DATE A DI SK" : PRINT" [DOWN) 


EC 


27 I FQK OTHENDN- 1 NT ( Q3/6 ) :Q1 


0E 


66 GETOPS:IFOP$-""OROP$-CHRS 




I0"SPC(20) "INITIALISE" 




-DN"6+1 




(34)OROPS-CHR$(44)OROP$-CHR$ 


3D 


103 PRINT" [DOWN] SO :FI LENAME" 


B9 


28 PRINT" ICLR. DOWN. RVSOFF, SP 




(58)THEN66 




SPC(ll) "SCRATCH A FILE" 




C4] DISK NAME: [RVSON] "DT$ (0) 


76 


67 IFOP$-CHRS(59)THEN66 


IB 


104 PRINT" [DOWN] RO:NEWNAME-0 




" " :PRINT" [DOWN] " :DR-5 


90 


68 IFOPS-CHRS ( 13) ANDLEN(FIS) 




LDNAMEfSPC4] RENAME A FILE" 


29 


29 F0RI-Q1T0Q1+DR 




-18THEN84 


DB 


105 PRINT" [DOWN2 , RVSON] OPT 10 


C3 


30 IFDT$(I)-CHR$(32)+"|SPC18 


64 


69 IFLENiFIS: -18ANDOPS< >CHRS 




N REQUIRED [RVSOFF] (RETURN F 




] "ORDTS ( I ) -""THENDTf ( I ) -"" :D 




(20)THENF1$-F1$*OPS:PRINTOP$ 




OR MENU) " : Q6S-"" : PRINT" (DOWN 




R-DR-1 




" [ RVSOFF , SPC4 , RVSON ] < [ LEFT] " 




] >"; 


9D 


31 NEXT 




; :GOT065 


66 


106 GETP1S : IFP1$-""THEN113 


2A 


32 F0RI-Q1T0Q1+DR 


50 


70 IFLENIFIS) -55THENQ5-1 


81 


107 IFLEN(Q6S) -37ANDP1$< >CHR 


71 


33 IFI >9THENW$-" [LEFT RVSONl 


E6 


71 IFLEN(F1S)-55AND0PS<>CHR$ 




S ( 1 3) ANDP1 S< >CHRS ( 20 ) THEN 106 




" :G0T035 




(20) ANDOP$< >CHRS(13)THEN66 






00 


34 WS-" [LEFT. RVSONl " 


4F 


72 IFOPS-CHRS (13) ANDLEN(FIS) 


5E 


108 Pl-ASC(PlS) : IFP1-13THEN1 


BD 


35 PRINT" [LEFT! "I -WS -LEFTS (D 




-0THEN28 




14 




T$( I ) . 16) " ; "A2S; PRINT" (UP21 " 


A6 


73 IFOPS-CHRS ( 13) THEN84 


84 


109 IFPK >20THEN112 




SPC (20) ; 


66 


74 IFOPS-CHRS (20) ANDLEN(FIS) 


FD 


110 IFLEN(Q6$)< >0THENQ6$-MID 


23 


36 PRINT" [RVSONl "J$ (11" [DOWN 




-19THEN81 




S (Q6S. 1 . LEN(Q6S) -1) :PRINTP1S 




2] " : NEXT 


A6 


75 IFOPS-CHRS (20) ANDLEN(FIS) 




• 


B3 


37 PRINTA1S" (D0WN3JF1-MENU F 




>0THEN78 


5D 


111 GOTO106 




3-ADD F5-FWD F7-BACK £-ERASE 


AE 


76 IFASC(OPSX320RASC(OP$) >9 


B3 


112 IFPK320RP1>90THEN106 




[H0ME1 " : P0KE198 , 0 : WAIT198, 1 




5THEN65 


53 


113 PRINT" (LEFT! " ; PIS ; :Q6S- 


01 


38 IFPEEK(197)-48THEN119 


69 


77 FlS-Fl$*OPS:PRINTOP$; :GOT 




Q6S*P1S:GOT0106 


55 


39 IFPEEK(197)-4THEN15 




065 


CI 


114 IFQ6$-""THEN15 


OA 


40 IFPEEK(197)-5THEN54 


46 


78 F1S-LEFTS<F1S.LEN(F1S)-1) 


5B 


115 CL0SE1 :OPENl .8. 15.Q6$:CL 


65 


41 IFPEEK( 197) -6ANDQ1-Q3THEN 








OSE1 : CLOSE 15 ; 0PEN15 , 8, 15 , " I " 




01 -1 :GOT025 


Bl 


79 IFLENIFIS) -54THENPRINT" 1R 




:GOSUB98:GOT015 


91 


42 IFPEEK(197)-6ANDQ1+6>Q3TH 




VSOFF] IRVSON.LEFT2J"; :GOT06 


49 


116 PRINT" [CLR. DOWNS. SPC7] IN 




ENQl-l:GOT025 




5 




SERT NEW DISK IN DRIVE" 


91 


43 IFPEEK ( 197) -6ANDQKQ3THEN 


F0 


80 PRINT" [RVSON) [LEFT2]";:G 


C8 


117 PRINT" (DOWN2.SPC7] PRESS 




Q1-Q1*6:G0T025 




OT065 




ANY KEY TO CONTINUE" :POKE198 


F2 


44 IFPEEK ( 197) -3THEN01-Q1-6; 


E8 


81 F1S-LEFTS(F1S.LEN(F1$)-1) 




,0 :WAIT198, 1 :GETE$ 




G0T025 




: PRINT" (RVSON] " :D-19 


69 


118 PRINT" (UP. SPC13JPLEASE W 


EF 


45 GOT038 


40 


82 IFQ5-1THENPRINT- [UP3] "SPC 




A I T I SPC8 1 " ■ CLR ■ GQT09 


DO 


46 PRINT" [UP2J "SPCI28) " [LEFT 




(38)"";:GOT065 


C7 


119 PRINTA1$"[DOWN3]"SPC(30) 




. DOWN 2 ) " :PRINT" (UP2| "SPC(9) " 


61 


83 PRINT" [UP2] "SPC(38) "" ; :GO 




" IRVSON1/-FRASF IHOMF1 " 




SAVING "CHRS<34) "FILE DES" 




T065 




1 70 PR I NTA 1 S" f DOWN1 "SPC M 01 " 






FC 


84 JS(DF) -F1S 




f SPC?9 1 " 


10 


47 PRINTCHR$(34) " . . .":FORQ-l 


BB 


85 IFLEN ( J$ (DF) ) < 19THEN28 




171 POKFIQft fl ■ DF*—" " ■ PR I NTA 1 




T0Q3 : IFJS (Q) -" "THEN J $ (Q) -" [R 


42 


86 JS(DF)-MIDS(J$(DF) .1.19)+ 


S"IDOWNl WHICH FILE" - - INPUTD 


03 


VSON] " 




" [ RVSOFF . SPC4 , RVSON ) "+MIDS ( J 




£ JJ . 1**1 ¥ fiU V v< 9 I 


48 NEXTQ 




$(DF) .20.37) 




\ 77 IFnFS-"0"THFNPRINTAl I" ID 


82 


49 CLOSEl:CLOSE15:OPEN1.8.15 


33 


87 JS(DF)-JS(DF)>"[UP]*':GOTO 


OWN SPC141 " -GOT037 




,"S0:FILE DES" : CLOSE 1 : OPEN 15 




28 


8C 


123 I FDF< QIORDF K)ltDRTHEN119 




. 8 . 15, "I " 


38 


88 OPEN15.8. 15. "I " 






7A 


50 OPEN1,8,8,"0:F!LE DES.S.W 


71 


89 OPEN1,8.8."0:FILE DES.S.R 


E8 


124 J$(DF)-" [RVSONl "GOT028 




":GOSUB98 




" :GOSUB98 : I FER-62THENCLOSE15 




72 


51 PRINT#1.Q3 




: RETURN 


36 


125 POKE198 0-SYS198-END 


30 


52 FORl-lTOQ3:PRINT»l , LEFTS ( 


83 


90 PRINT" (UP]"SPC(19) "FILE D 


FD 


126 DATA169. 255. 133.0, 165.55 




DTS(I) . 16) :PRINT«1. JS(I) :NEX 




ES[SPC5] " 




133 71 . 165 56 133 




T : CLOSE 1 


BE 


91 INPUT* 1.03 


5C 


127 DATA72 . 162,1. 32. 198, 255, 


7A 


53 PRINT" [UP, SPC31 I ":GOT015 


8B 


92 F0RI-1T0Q3:INPUT#1.K$(I) : 




166,0.232.134,0 


BB 


54 PRINTA1S" [DOWN3] "SPC (8) " I 




INPUT»1 . JS( I ) : J1S( I ) -JS ( I ) :N 


B2 


128 DATA216.56. 165.71, 233,20 




RVSONl F3-ADD [HOME] " 




EXT 




,133.71,176.5,166 


81 


55 PRINTA1S" [DOWN] WHICH F 


C3 


93 CLOSE1:CLOSE15:NF-PEEK(0) 


76 


129 DATA72. 202, 134,72.32.207 




1LE "; :POKE198,0: INPUTDF$:DF 




-1 




,255,164,144,206 




-VAL(DFS) 


27 


94 FORQ1-1TONF : IFLEFTS (DTS (Q 


54 


130 DATA22.201.34.208.245. 16 


9B 


56 IFDF$-"0"THENPRINTA1$" [DO 




.1) ,16)-KS(Q1)THENJS(Q1)-J1S( 




0,0.32.207.255.201 




WN.SPC18]":GOT037 




Ql) :GOT097 


54 


131 DATA34. 240.249. 145.71. 20 


B4 


57 I FDF< QIORDF >Q1 ♦DRTHENPR I N 


8D 


95 FORQ2- 1TOQ3 : I F LEFTS ( DTS ( Q 




0,192.19,208.242 




TA1SSPC(17) " [DOWN.SPC18] " :GO 




1) .16)-KS(Q2)THENJ$(Q1)-J1S( 


D6 


132 DATA240.207.32. 204. 255.9 




T054 




02) :Q2-Q3+2 




6.0.0.0 
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► 

Character Scroller 



Do you long to have text scrolling smoothly wherever 
you like? The dream can become a little closer to reality. 



H, 



ave you ever played Stmngcloop 
from Virgin? If you have, you will have 
seen the way that the instructions are 
displayed (they scroll up to 
three-quarters of the way across the 
screen and then stop) and you might have 
also wondered how they did it. 

Well, look no further. The routines 
here will do the same for your own 
programs. They allow you to scroll a 
message between specified characters, 
cither scrolling upwards or from the left. 

The routines work by getting a 
character from the text and putting the 
graphic of that character into the end of 
the characters you chose, and then it 
moves the graphic one pixel upwards or 
to the left, depending on the option 
chosen.This means that wherever the 
characters you chose for the scroll arc put 
on the screen, the text will be scrolled 
through them. As the demo program 
shows, you can use this tit create tunnel 
effects. 

The Routines 

The first routine. Listing I, is a left scroll 
and is called as follows: 

SYS49I52.A.B.C.D 

where: 

A is the start of text; 

B is the start of the character set; 

C is the start of the characters; 

D is the number of characters to scroll: 

Listing 2 is an up scroll with the 
same parameters as above, but is called 

by: 

SYS4950 



Listing 3 is a routine to set up a raster 
interrupt to run the above two routines; 
we will delve into this more deeply in the 
'Tips' section. 

Listing 4 is a routine to copy the 
ROM characters into $3000. and also 
allows you to re-design them by copying 
a character into spare memory, then 
moving the top four pixels to the right, 
so creating double-thickness with a 
slant. 

Listing 5 is a Basic demo program. 

When your text is in the memory, 
remember to put the character 255 (SFF) 
at the end; the scroller checks to sec if 
any of the characters are 255, and if it is, 
this causes the text to be reset. 

Some Tips 

The raster interrupt that 1 have set up is 
rather make -shift, and you may wish to 
improve on it yourself. The addresses of 
the scroll routines are $C069 (48257 dec) 
for the left scroll, and $C1C5 (49695 dec) 
for the up scroll. 

You may think the routines are rather 
bulky for their functions, but most of the 
code is used to extract the specified 
parameters. If you wish to make them 
more effective, you could just get rid of 
all the parameter routines. 

II you're a would-be demo 
producer, then you'll know the basis of 
the left -scroll could be amended to scroll 
the text within sprites. 

If you're thinking of using this 
routine for a landscape, then you will have 
to duplicate the scroll routine and also 
change the part of the routine that extracts 
the data and converts it to text, so that it 
changes the data 10 your landscape 
graphic. 



Getting it all in 

All of the routines are presented here as 
Basic programs. You should enter all of 
these using the SYNTAX CHECKER 
program that can be found on the 
LISTINGS page. Each program should 
be typed in and SAVEd one at a time. 

Before you RUN the DEMO 
program you should have LOADed and 
RUN each of the other programs. 



LISTING lr CHAR LEFT 



El 10 REM <<<<<<<<< 

->>>>>>>>> 
B4 11 REM <<<< 
>>>> 

A6 IB REM <<<< CHARACTER SCROLL 

LEFT >>>> 
B2 13 REM <<<< 
>>>> 

B8 14 REM <<<< SYS 49155. TEXT 

5A >>>> 
FA 15 REM <<<< , CHAR 

SA >>>> 
SB 16 REM <<<< , START 

CHAR >>>> 
B2 17 REM <<<< , NO. I 

HARS >>>> 
ID 18 REM <<<< 
>>>> 

93 19 REM <<<<<<<<< 

->>>>>>>>> 
5F 20 REM << 
>> 

9C 21 REM << INVENTED BY JOHN F 

LETCHER >> 
Al 22 REM << IN 1996 FOR ' 

YC >> 
60 23 REM << 
>> 

FA 24 REM <<<<<<<<< 

->>>>>>>>> 
23 25 : 
20 26 : 



•5 
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63 27 PRINT"[CLRD":FORL-0TO17:C 
X-0:FORD-0TO1S: READA: CX-CX+A 
:PaKE491S2+L»16+0,A:NEXTD 

97 2B READA: I FAOCXTHENPRI NT " t U 
HITE , RUSOND ERROR IN LINECUIHI 
TED " ; 31*L : END 

4C 89 PR 1 NT "C HOME , C7D READING LI 
NEC YELLOW] ";31+L 

52 30 NEXTL : END 

C9 31 DATA35, B9, 195, 165 , 20, 141 , 

153, 192, 165,51, 141, 154, 192,3 

2,253, 174,5116 
DB 32 DATA32, 235, 183, 165,50, 133 
, 15B, 165,51, 133, 159, 145, 1S1 , 

195,169,0,5058 
77 33 DATA141 , 155, 195, 138, 133, 1 

4B, 169,8,133, 149. 169,0,141,1 

SI, 182, 162,2178 
11 34 DATAB.70, 148, 144,3,54, 101 
, 1 49 . 1 06 , 1 1 0 , 1 5 1 , 1 92 ; 202 , 208 
,242,141,1999 
F6 35 DAT A 155, 195, 173, 152, 192,2 

4, 101 , 159, 141, 1S2, 182,32,253 
, 174,32, 158,2579 
5F 36 DATA1B3, 139,201,32, 48,13, 

76,72. 178,32,253, 174,35, 13B, 

173,35,1775 
4B 37 DATAS47, 183,96, 141, 149, 19 

5 , 76 . 541 , 192 , 160 , 7 , 32 , 1B7 , 19 

2. 174, 1SS.5404 
2A 3B DATA192,24.8,40, 177, 166,4 

2 , 145 , 166 , B, 1G5 , 166 , 56 , 233, 8 
,133,1729 
EC 39 DATA166, 176,2, 19B, 167,205 
, 16,235,40, 136, 16,553,206, 15 

0, 195, 173,5598 
3E 40 DATA 150, 192 , 240, 41 , 96 , 30 , 

8,540,34.0,80,30, 173, 153.195 
, 133, 1795 
3F 41 DATAS54. 173, 1S4, 135, 133,5 

55,96,173,151.195.133,166,17 

3, 155. 182, 133,2755 
90 42 DATA 167, 96 , 173, 151 , 195 , 13 

3, 548, 173, 152 , 192 . 133, 249 , 96 
.169,9.141,2473 
36 43 DATA1S0, 132, 160,0, 135, 167 
, 177 , 554 , 20 1 . BS5 . 240 , 508 , 4 1 , 

63,10,10,2260 
A2 44 OATA10,133,166,144,5,530, 

167, 165, 167, 54, 101 , 159, 133, 1 

67,32, 178, 1978 
D7 45 DATA192, 160,7, 177, 166, 145 
,54B, 136, 16,249,230.254,208, 

5 , 230 , 255 , 5675 
E7 46 DATA96, 174, 151, 195,175, 15 

5,195,134, 187,135.188, 173, 14 

9,195.141,155,5590 
A7 47 DATA 195, 10, 10, 10, 141, 1S1, 

195,54, 105.8, 141,535,3, 169.0 

, 160, 1548 
F4 48 OATA0, 145. 187,500,504,535 

,3,508,548,35, 156, 195,96,3,0 

,255,2161 



LISTING 2:CHAR UP 



E4 10 REM <<<<<<<<< 

->>>>>>>>> 
B4 11 REM <<<< 



E6 12 REM <<<< CHARACTER SCROLL 

UP >>>> 
B2 13 REN <<<< 
>>>> 

6F 14 REM <<<< SYS 49500, TEXT 

SA >>>> 
FA 15 REM <<<< . CHAR 

SA >>>> 
6B 16 REM <<<< , START 

CHAR >>>> 
85 17 REM <<<< . NO. C 

HARS >>>> 
ID 18 REM <<<< 
>>>> 

93 19 REM <<<<<<<<< 

->>>>>>>>> 
SF 50 REM << 
>> 

9C 51 REM << INUENTED BY JOHN F 

LETCHER >> 
Al 52 REN << IN 1986 FOR ' 

YC >> 
60 23 REM << 
>> 

FA 54 REM <<<<<<<<< 

->>>>>>>>> 
23 25 : 
20 26 : 

SC 27 PRINT"CCLRD":FORL-0TO15:C 
X-0 : FORD-0TO15 : READA : CX-CX+A 
: POKE49500+L»16+D , A: NEXTD 

87 28 READA: I FAOCXTHENPRI NT "CUI 
HITE, RUSON D ERROR IN LINECUHI 
TED " ; 31+L : END 

4C 29 PR I NT "£ HOME , C7D READING LI 
NECYELL0UD";31+L 

S3 30 NEXTL: END 

97 31 DATA32, 181, 193, 165,20, 141 

,221,193,165,51, 141,222, 193, 

32,253, 174,2347 
C9 32 DATA32.235, 183, 16S.20, 133 

.164, 165,21, 133, 165, 142,219, 

193,169,0,2139 
96 33 DATA141 ,220, 193 , 13B , 133 , 1 

66, 169,8, 133. 167, 169,0, 141 ,2 

19, 193, 162,2352 
E4 34 DATAB, 70, 166, 144,3,24, 101 

, 167, 106, 110,219, 193,202,208 

,242,141,2104 
FF 35 DATA220. 193,173. 550, 193, 5 

4, 101, 165, 141,550, 193,35,253 

,174,32,158,2492 
6F 36 DATA183,139, 501, 26,48,13, 

76 , 72 , 178 . 32 . 253 , 174 . 32 , 139 , 

173,32, 1769 
06 37 DATA247 , 193 , 9G ,141,217,19 

3,76,42. 194, 160,0.200.177, 17 

6, 136, 145,5383 
8D 3B DATA176,S00,S04,553, 193, 1 

44 , 244 . 206 ,218,193, 240 , 30 , 96 

, 50, B, 0,5395 
SC 39 DATA52.0, 64, 168. 173,551,1 

93, 133,252, 173.222, 193. 133,5 

53,96, 173,2499 
08 40 DATA219.193, 133, 548, 173,2 

20, 193, 133,249,95, 163,8, 141, 

218, 193, 160,2746 
B0 41 DATA0 , 135, 551 , 177. 252 , 501 

,255,240,219,41,63.10.10, 10, 

133,250.5544 
33 42 DATA144.2,230,251.16S,251 
,24, 101 , 16S, 133,251 ,32,235, 1 

93,160,7,2344 
El 43 DATA177, 550.145,548,136,1 

6 . 543 , 530 , 2S2 , 208 , 2 , 230 . 253 , 

36, 174,213,2885 
91 44 DATA 193 , 175 , 550 , 133 , 134 , 1 



76, 135,177,173,517, 193,10, 10 

,10,141,519,5370 
BS 45 DATA193, 54, 105,8, 141 ,553, 

193, 141.235,3,169,0, 160.0, 14 

5,176, 1913 
52 46 DATA500, 204, 232. 3, 208.248 
. 169 . 8 , 141 , 518 . 193 , 32 , 224 , 19 

3,96.155.2524 



LISTING 3: RASTER 



E4 10 REn <<<<<<<<< 

->>>>>>>>> 
B4 11 REM <<<< 
>>>> 

79 12 REM <<<< THIS ROUTINE WIL 

L SET >>>> 
B5 13 REM <<<< 
>>>> 

21 14 REM <<<< UP A RASTER INTE 

RRUPT >>>> 
00 15 REM <<<< 
>>>> 

43 15 REM <<<< TO RUN THE TWO S 

CROLL >>>> 
IE 17 REM <<<< 
>> >> 

73 18 REM <<<< ROUTINES .CSYS 4 

3B003 >>>> 
1C 13 REM <<<< 
>>>> 

BE 50 REM <<<<<<<<< 

->>>>>>>>> 
SE 21 REM << 
>> 

09 25 REM << INUENTED BY JOHN F 

LETCHER >> 
64 23 REM << IN 1986 FOR 1 

YC >> 
SB 24 REM << 
>> 

E9 25 REM <<<<<<<<< 

->>>>>>>>> 

20 26 : 

21 27 : 

Bl 28 PRINT"CCLRJ":FORL-0TO5:CX 
-0: FORD-0TO15: READA: CX-CX+A: 
POKE43800+L-16+O, A : NEXTD 

CD 23 READA: IFAOCXTHENPRINT"CW 
HITE , RUSOND ERROR IN LINECWHI 
TED " ; 32+L : END 

B4 30 PR I NT "C HOME , C7D READ I NG LI 
NECYELL0W3";32+L 

53 31 NEXTL: END 

D4 32 DATA1S0, 169, 157, 141, 13,52 

0 , 163 , 1 , 141 , 55 , 508, 141 , 56 . 50 

8,163.27,1305 
B7 33 DATA141, 17, 208, 159,1,141. 

132,3,165.175,160,194,142,20 

, 3, 140.1B0S 
A7 34 0ATA51 ,3,B8,96, 173.5S,50B 

. 141. 55, 50B, 41, 1,540,58.506. 

132,1636 

DF 35 0ATA3, 16,5.169, 1,141,132, 
3, 174, 132, 3, 183,224, 194 , 141 , 
32, 1559 

46 36 DATA20B, 189. 222 , 194 , 141 , 1 
B.20B, 13B, 540,6, 32, 10S, 192,7 
6,126.234,2329 

EF 37 DATA32, 197, 193,76,49,234, 
49,251.6,0.0,0,0,0,0,0, 1087 
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LISTING 4: COPY 



E4 10 REM <<<<<<<<< 

->>>>>>>>> 
84 11 REM <<<< 
>>>> 

B0 12 REM <<<< THE FIRST ROUT 

INE >>>> 
87 13 REfl <<<< COPIES THE ROM C 

HARS. >>>> 
E6 14 REM <<<< INTO S3000 C122B 

B) >>>> 
00 15 REM <<<< 
>>>> 

5A 16 REfl <<<< THE SECOND ROU 

TINE >>>> 
73 17 REN <<<< RE-DESIGNS THE C 

HARS. >>>> 
47 18 REM <<<< BY SHIFTING THE 

FIRST >>>> 
13 19 REM <<<< FOUR PIXELS OF T 

HE >>>> 
Fl 20 REM <<<< CHAR RIGHT ONE. 

UITH >>>> 
5D 21 REM <<<< DOUBLE WIDTH ... 

>>>> 

99 22 REM <<<< 
>>>> 

E6 23 REM <<<< I... SYS 49900 
>>>> 

E9 24 REM <<<< 2... SYS 499S2 

>>>> 
96 25 REM <<<< 

>>>> 

84 26 REM <<<<<<<<< 

->>>>>>>>> 

5C 27 REM << 
> > 

7F 28 REM << INUENTED BY JOHN F 

LETCHER >> 
95 29 REM << IN 1985 FOR ' 

YC >> 

59 30 REM << 

>> 

E7 31 REM <<<<<<<<< 

->>>>>>>>> 
1A 32 : 
IB 33 : 

B4 34 PRINT"tCLR]":FORL-0TO7:CX 

-0: FORD-0TD15: REAOA : CX-CX*A ; 

POKE49900*L-16+D , A : NEXTD 
Al 35 REAOA: IFAOCXTHENPRINT"CW 

H ITE , RUSON D ERROR IN LINECUHI 

TE J " j 38+L : END 

60 36 PR I NT "C HOME , C7 DREADING LI 
NECYELL0UD";3B+L 

49 37 NEXTL: END 

95 38 DATA163, 0,141, 14, 220, 169, 
51,133,1,162.0,160.48,169,20 
8,134, 1779 
BB 39 DATA250. 134. 252, 132, 251.1 
33 , 253 , 1 60 , 0 , 1 77 , 2S2 , 145 , 250 
,200.208.249,3046 
0E 40 DATA230, 251, 230 .253, 165,2 
53 , 201 , 216 , 20B , 239 , 169 . 55 , 13 
3,1,169,1,2774 
C4 41 DATA141. 14.220.96.169.0,1 
33,250,169,48,133,251,160,7, 

177.250,2218 
16 42 DATA74, 153,94, 195. 136, 16, 
247. 160.7.177.250,25,94, 195, 



145.250,2218 
78 43 DATA136, 16,246, 160,3, 177, 

250 , 74 , 145 , 250 , 136 , 16 , 248 , 16 

S, 250, 24, 2296 
62 44 DATA 105 , 8 , 133 , 250 , 144 , B, 2 

30 . 251 . 165 , 251 , 201 , 50 , 240 , 3. 

76,40,2155 
E7 45 DATA195.96,204,223, 193, 14 

4 , 244 , 206 , 216 , 1 93 , 240 , 30 . 96 , 

20. B. 0,2310 



LISTING S: CHAR DEMO 



B9 100 POKE532B0,3:POKES32B1,3: 
PRINT "C BLACK , CLR, DOUN10 . RIGH 
TBDPLEA5E UJAIT . .READING TEXT 
■• 

1A 110 IFPEEK(163B4)-4STHEN200 
42 120 : 

A0 130 AS-"--.. HELLO THERE FEL 
LOU YC READERS . .— THIS RO 
UTINE WILL ALLOU YOU " 

EB 140 AS-AS+" TO SCROLL TEXT U 
ITHIN A CHARACTER AS YOU 

CAN SEE SOME STUNNING" 

25 150 AS-AS+" EFFECTS CAN BE A 
CHIEUED UITH EASE ! I . -YOU CA 
N SCROLL UP OR LEFT..." 

9A 160 : 

0B 170 L-LENCAS) : FORI-ITOL: POKE 
16383*1 . ASCCM I DSC AS. I , 1 5 3 : NE 

XT : P0KE163B4+L , 255 
96 180 FORI-0TD7:POKE122BB*I-25 

5*8,0: NEXT 
B4 190 : 

6F 200 PRINT"CC5.CLRD":P0KE532B 

1 , 0 : POKE53280 . 0 : POKE 16383 , 0 : 

PQKE53265.0 
24 210 PRINT"CSPC8.CP253" 
39 220 PRINT"CSPC8.RUS0N,C»,RUS 

OFF,CP^^,SN.CH3 , ■ 
B6 230 PRINT"CSPCB,RUSON] CRUSO 

FF.SPC4.CHD C CYAN 3 INUENTED B 

YCCSD CCN.SPC4.CH2D" 
83 240 PRINT"CSPCB,St .CY4.CH.RU 

SDN . SPC 1 3 , RUSOFF , CN . CY4 . SM . C 

HD " 

E7 250 PRINT"CSPC8,CY,SP.CY,S0, 
CY . CH . RUSON . SPCS , RUSOFF , SM , C 
p . SN , RUSON , SPCS , RUSOFF , CN, CY 
.SP.CY.SO.CYD " 
13 260 PR I NT " C SPCS . CN . RUSON . UH I 
TEDACRUS0FF,C5,CHD CCH, RUSON 
. SPC5 , RUSOFF . CN . RUSON , UH I TED 
PC RUSOF F . C5 , CH , RUSON , SPCS . RU 
SOFF.CND CCN, RUSON. UHITE3AER 

USOFF.CS.CHD" 

02 270 PRINT"CSPC9.CN,RUSDN.UHI 
TEDBCRUSOFF.CS. CHD CCH.RUSON 
. SPCS . RUSOFF , CN , RUSON . UlHITED 
QC RUSOFF , C5 . CH . RUSON . SPC5 , RU 
SOFF.CND CCN.RUSON.WHITEDBCR 
USOFF.CS.CHD" 

3E 2B0 PRINT"CSPCB.CP.Se. CP, SL, 
CP , CH , RUSON . SPCS . RUSOFF . SN . C 
Y , SM , RUSON . SPCS . RU50FF , CN , CP 
.SQ.CP.SL.CPD" 

05 290 PRINT"CSPC8.RUS0N,C-,RUS 
OFF , CP4 , CH , RU50N . SPC 1 3 . RUSOF 
F,CN.CP4.SN.CHD" 

FA 300 PRINT"CSPC8,RUS0ND CWHIT 
E . SA , SB . SC , SD , RUSOFF , C5 . CH . Y 
ELL0W3 JOHN FLETCHERC C5 . CN , RU 
SON . UH I TE . ST , SU . SU , SU . RUSOFF 
.C5.CH2D" 



75 310 PRINT"CSPCB,5t:,CY23,SM,C 
H3" 

FF 320 PRINT"CSPC8,CY,SP,CY,SD. 
CY5 . SP , SM . CP. SN , SO , CY6 , SP , CY 
.SO.CYD" 

F4 330 PR INT "CSPC9, CN , RUSON, UH I 
TEDHC RUSOFF . C5. CH . SPC6 , CN2 . R 
U50N , UH I TED WC RUSOFF . CS , CH2 . S 
PC5 , CN , RUSON , WH I TEDHC RUSOFF , 
C5.CH3" 

C7 340 PRINT"CSPC9.CN, RUSON, UHI 
TED I C RUSOFF . CS , CH , SPC5 . CN2 , R 
USON . UHITEDXC RUSOFF , C5 , CH2 , S 
PC6 , CN , RUSON . UH 1 TED I C RUSOFF , 
C5.CHD" 

26 350 PR I NT "C SPCS. CN , RUSON, UH I 
TED JC RUSOFF , CS , CH . SPC6 , CN, SN 
, CY , SM . CH , 5PC6 , CN , RUSON , WH IT 
ED JC RUSOFF , C5. CHD " 

9A 360 PR I NT "C SPCS . CN . RUSON , UHI 
TEDKC RU50FF . CS . CH , SPC4 , RU50N 
, S : , RUSOFF . 50 , CY5 , SP . SM , SPC4 
. CN , RUSON , UH I TE D KC RUSOFF , C5 . 
CHD " 

BB 370 PRINT"CSPC9,CN,RUS0N.UHI 
TEDLC RUSOFF , CS . CH , SPC4 , RUSON 
D C RUSOFF. CG. RUSON, SPCS, RU50 
FF.CND CCH.SPC3.CN, RUSON, UHI 
TEDLC RUSOFF , C5 , CHD " 
8A 380 PRINT"CSPC9,CN,RU50N,UHI 
TEDMC RUSOFF . C5 , CH , SPC4 . Sf , CH 

. RUSON . SPC5 . RUSOFF , CN , SM . CH , 
SPC3 , CN , RUSON , WH I TEDMC RUSOFF 

.C5.CK3" 

52 390 PRINT"CSPC7, RUSON, St- , RUS 
0FF.50.CY73 C CH , RUSON , SPC5 , R 
USOFF , CN3 CCY6.SP.SMD" 

6D 400 PRINT"CSPC7, RUS0N3 C RUSO 
FF , CG , RUSON , WH I TE . SB . SC , SD . S 
E, SF , SG , 5H , SI , RUSOFF . C5 , CH , R 
USON . SPC5 , RUSOFF . CN , RUSON , WH 
I TE , SQ , SR . SS , ST , SU , SU . SU , RUS 
0FF.C5.CN3 CCHD" 

20 410 PRINT"CSPC7, RUS0N3 CRUSO 
FF.CG, SPC7 , RUSON. St , RUSOFF , C 
G , RUSON , 5PCS , RUSOFF , CN. SM . SP 
C6.CN3 CCHD " 

61 420 PRI.NT"CSPC7,St,CY7,SP.RU 
SOND C RUSOFF . SL . CPS. S@3 CSO, 
CY6.SM.CHD" 

66 430 PRINT"CSPC7.CYB,SP,St , SP 
C7,SM,SO,CY73" 

CC 440 PRINT"CSPC16,CY93"; 

F9 450 : 

F4 460 REM •••• COPY CHARS. FRO 

M ROM 
ED 470 : 
3D 480 SYS 49900 
□1 190 : 

16 S00 REM RE-DESIGN CHAR. 

SET •••• 

CS 510 ; 

87 520 SYS 49952 

2E S30 : 

92 S40 REM — • SET PARMS FOR S 

CROLL **•* 
12 550 : 

2D 560 SY5 491S2 , 16384 . 12288 , 19 
2.25 

3B 570 SYS 49500,16384,12288,12 

8.25 
7C 580 : 

BF 590 REM •••• INIT. INTERRUPT 
S ... •••• 

60 600 : 

DF 610 P0KE53272.28:SYS 49B00 
I 2C 620 PRINT"CH0ME3" 
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PLUS/4 UTILITY 



Many Plus/4 owners have upgraded to the 
SCRIPT— PLUS wordprocessor. Unfortunately you c&n't 
use 3+1 files with this wordprocessor. TRANS—SCRIPT 

changes nil this. 



II av inn recently obtained the 
SCRIPT/PLUS cartridge I was left with 
ihc problem of converting several disks 
of 3 + 1 wordprocessor files into a formal 
suitable for SCRIPT/PLUS. 

This program TRANS-SCRIPT 
will enable 3+1 formal files to be con- 
verted using either single or twin disk 
units. The program is menu driven and 
will prompt for single/twin disk units, 
filename, directory or exit. F.xit from the 
directory is by pressing return. 

In single disk mode the program 
reads the file, converts it and then writes 
it back to the disk using the same file- 
name but with the first character of the 
filename overwritten w ith an exclamation 
mark. 

When using twin disk units the file 
is written to the second unit using the 
same filename. 

The conversion is done on a 
character by character basis hut by use of 
machine code the process is fairly swift, 
especially if 1551 disk drives are used. 
The layout of the original 3 + 1 file is 
preserved, but the 3 + 1 embedded com- 
mands are removed. 

Getting it in 

To enter the program use the MONITOR 
and the M command to type in the hex 
dump listing. 

Then SAVE "TRANS-SCRIFT"OK. 
I00U4C9 

The program can then be loaded and 



run like a normal BASIC program. 
N.B. The program must be located at the 
normal start of basic area. E.g. Hex l(K)l. 
GRAPHIC CLR can be used to ensure 
this. 

File format 

The 3 + 1 wordprocessor file is held on 
disk in the following format. Byte 01 and 
02 point to the end address of the docu- 
ment in memory. Byte 03 is the number 
of lines in (he document. The next 99 
bytes are the text pointers. This is follow- 
ed by a further 77 bytes for the Tab set- 



tings. Finally there is a further gap until 
the start of the document text. This gives 
a total of 303 bytes before the document 
text which can be discarded during the 
conversion process. 

The document text is stored in 
memory and on disk in CBM screen 
code. The text is stored in 77 character 
lines. The carriage return "Hex OD" is 
replaced by "Hex 9F". The line after the 
carriage return is padded to the full 77 
characters with spaces. These spaces will 
be discarded during the conversion, 
reducing the size of the converted 
document. 



1 PROGRAM: 




■SCHIPT 


1 


10A1 


C3 


58 


32 


E6 


4C 


2E 


10 


AS 






















10A9 


02 


A2 


08 


AO 


0? 


BE 


El 


20 






















10B1 


BA 


FF 


20 


68 


12 


AS 


DE 


A2 






















10B9 


32 


AO 


03 


20 




FF 


22 


C0 






















10C1 


FF 


30 


03 


4C 


B9 


11 


20 


FC 




1001 


00 


10 


OA 


00 


9E 


28 


34 


31: 


10C9 


11 


BO 


A7 




21 


BD 


32 


03 




LOSS 


31 


31 


29 


00 


00 


00 


"3 


09: 


1001 


A3 


03 


A2 


08 


AO 


03 


86 


El 




1011 


A9 


00 


99 


D7 


00 


88 


00 


FA: 


10D3 


20 


BA 


FF 


20 


7F 


12 


A5 


DE 




1019 


A9 


32 


95 


E2 


A3 


03 


85 


E3: 


10E1 


A2 


32 


AO 


03 


20 


BD 


FF 


20 




1021 


AO 


FF 


A3 


33 


20 


D2 


FF 


CB: 


10ES 


C0 


FF 


90 


03 


4C 


B9 


11 


20 




1029 


B9 


36 


13 


□0 


F7 


20 


5A 


12 




10F1 


FC 


11 


B0 


03 


20 


93 


12 


4C 




1031 


A2 


0B 


A0 


02 


18 


20 


F0 


FF 




10F9 


73 


10 


AO 


32 


03 


85 


E0 


20 




1039 


m 


FF 


A3 


53 


20 


02 


FF 


CB: 




1101 


5A 


12 


A2 


06 


AO 


02 


IB 


20 




1011 


B9 


3B 


13 


CC 


F7 


20 


83 


11: 




1 1 22 


FO 


FF 


A0 


FF 


A9 


54 


20 


D2 




1049 


AD 


32 


03 


C9 


53 


00 


03 


4C; 




1111 


FF 


ca 


B9 


EE 


13 


00 


F7 


20 




1051 


BE 


10 


C3 


54 


DO 


03 


4C 


FB i 




1119 


B3 


11 


A5 


DE 


C9 


01 


DO 


14 




1059 


10 


C9 


58 


□ 0 


EB 


A9 


IB 


20: 




1121 


AD 


32 


03 


C3 


24 


DO 


06 


20 




1061 


D2 


FF 


A3 


4C 


20 


D2 


FF 


A3: 




1129 


9F 


11 


4C 


00 


11 


C3 


58 


22 




1059 


Z\\ 


20 


02 


FF 


60 


AO 


32 


03: 




1131 


EG 


4C 


2E 


10 


A3 


02 


A2 


0B 




1071 


85 


E0 


20 


5A 


12 


A2 


06 


AO: 




1133 


AO 


02 


35 


El 


20 


BA 


FF 


20 




1079 


02 


IB 


20 


F0 


FF 


AO 


FF 


A3: 




1141 


68 


12 


A5 


OE 


A2 


32 


AO 


03 




10B1 


53 


20 


D2 


FF 


ca 




sc 


13: 




1143 




BD 


FF 


20 


C0 


FF 


90 


03 




1089 


D0 


F7 


20 


83 


11 


A5 


DE 


C9: 




1151 


4C 


B9 


11 


20 


FC 




BO 


A7: 




1091 


01 


ce 


14 


AD 


32 


03 


C9 


24; 




1153 


A3 


03 


A2 


09 


AO 


03 


8G 


El 




1099 


□0 


06 20 


9F 


11 


4C 


73 


10: 




1161 


20 


BA 


FF 


20 


7F 


12 


AS 


OE: 
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1169 


A5 


35 


A0 


03 


20 


BD 


FF 


50 : 
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For those of you that do net 
posses a monitor or assembler, 
saving areas of memory is 
somewhat difficult and time 
consuming. This small programme 
mill enable you to SAUE ar.L, 
area of memory you like, except 
for RAH hidden under the ROMs. 

The syntax for using the 
routine is as follows: 

SYS50000 , "name " , 8, 1 V SA, Eft+1 

Where EA and SA are the end and 
start address respectively. 



1 X-5CC0C 

2 READ2: IFZ-256THENEND 

3 PQKEX,Z:X-X + l:GC)TCe 

4 DATA32, 253,174, 32, 212, 225, 3E, 2 
53, 174,32, 138, 173 , 32 , 247 , 183 , 165 
,20,72,165,81 

5 D.ATA72 , 32 , 253 , 174 , 32 , 138 , 173, 3 
2,247, 183, 155,20, 154,21, 1C4, 133, 

252, 1C4, 133 

5 "ATA251 , 153 , 251 , 75 , 95 , 225 , 255 
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Extended Basic 

For The 
Commodore Plus/4 



Although printers and disk drives are optional, they are 
necessary if full use is to be made of the existing Basic. 



his program adds un extra 39 
commands to the existing Basic. Some 
commands are intended for disk users 
only and some are intended for printer 
users only (primarily MPS803 users hut 

these commands may he compatible with 

other printers i.e. MPS801). The other 
commands arc intended to aid basic pro- 
gramming, i.e. an old command which 
when executed will regain a 'newed' 
program. 

The program sits from $1000 to 
$2100 with Basic starling at $2101. The 
graphic screen can still be used, as the 
program will automatically relocate itself 
to $4000 when you turn on the graphic 
screen for the first time. The program, 
once relocated to $4000 by the initialis- 
ation of the hi-rcs screen, will 
automatically relocate itself back lo $1000 
once graphicclr has been activated. 

The program uses $0600 to $068D 
for the relocating routine and the zero 
page is used by some of the commands. 

Typing It In 

Type in listing one and save it to disk or 
tape, run the program and if any data 
errors are detected the program will 
automatically list (he line in which the 
error occured. Therefore editing can be 
carried out to correct the line. 

The program can then be re-saved 



and re-executed. Once the data has been 
read into memory the computer will 
prompt you with the device (tape or disk). 
If you are using fast loader from Feb- 
ruary's issue or a different device number 
for the disk drive, you will need to change 
the device number to the corresponding 
device in line 90. 

When the device has been entered 
the computer will then save the machine- 
code program produced to the chosen 
device under the name "extended Basic". 
If you are using the fast loader program, 
delete line 10 in listing one before saving 
it and type in the following basic line:— 
POKE 44. 64: POKE 43.1: POKE DEC 
("4000). 0: NEW 

Load in the 'fast loader' program, 
adding the lines for relocating it from 
August's issue. Run the program and re- 
locate fast loader to $3D00 (remember 
delete line 1165 in the fast loader relocate 
program first); type new and load in 
listing one and add the following line:— 
95 IFA$="TTHENSYSDECK("3D00") 



Execute The Program 

Listings two to six are demo programs 
and therefore need not be entered unless 
you want a demonstration of the comands 
at work (N.B. the extended Basic must be 
executed before the demo programs are 
entered. The demo programs must be 



entered in order, and saved before the next 
one is entered. If you haven't a disk drive 
you need not type in listing six.) When 
the demo programs have been entered and 
saved listing two can then be loaded by 
using the chain command. 

Commands Summary and 
Format 

COMMAND: APPEND 

FORMAT: APPLNDl "FILENAME"! 

.DEVICE1I 

Abbreviated to A(SHIFT)P 
AFFECTED BASIC ABBREVIATIONS: 
None 

MODES: Direct and Program 
RECOMMENDED MODE: Direct 
PURPOSE: To append a program from 
tape or disk to the end of the current 
program in memory. 

COMMAND: BSAVE 

FORMAT: BSAVEl "FILENAME"!. 

DEVICEI. EOT FLAGL START!. 

FINISH11III 

Abbreviated to B(SHIFT)S 
AFFECTED BASIC ABBRECIATIONS: 
None 

MODES: Direct and program 
RECOMMENDED MODE: Either 
PURPOSE: To save a block of memory 
to tape or disk. The start address defaults 
to the start of the basic and the end 
address defaults to the end of the current 
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basic program. The EOT tlag is (he same 
as tor the basic SAVE command. 

COMMAND: CGOSUB 
FORMAT: CGOSUB Variable Expres- 
sion. 

Abbreviated to CGO(SHIFT>S 
AFFECTED BASIC ABBREVIATIONS: 
None 

MODES: Direct and Program 
RECOMMENDED MODE: Either 
PURPOSE: To GOSUB a line number 
evaluated from the variable expression. 

COMMAND: CGOTO 

FORMAT: CGOTO Variable Expression. 

Abbreviated to C(SHIFT)G 

AFFECTED BASIC ABBREVIATIONS: 

None 

MODES: Direct and Program 
RECOMMENDED MODE: Either 
PURPOSE: To GOTO a line number 
evaluated from the variable expression. 

COMMAND: CHAIN 
FORMAT: CHAINI "FILENAME"!. 
DEVICEI. RELOCATE FLAGII1 
Abbreviated to C(SHIFT)H 
AFFECTED BASIC ABBREVIATIONS: 
CHRS — > CH<SHIFT>R 
MODES: Direct and Program 
RECOMMENDED MODE: Direct 
PURPOSE: To load in a program whilst 
keeping the current variables intact. 

COMMAND: DISK 

FORMAT: DISK STRING). 

DEVICE<8-II)| 

Abbreviated to DtSHIFTH 

AFFECTED BASIC ABBREVIATIONS: 

DIM 

MODES: Direct and Program 
RECOMMENDED MODE: Either 
PURPOSE: To send a command to the 
disk drive. 

COMMAND: DOKE 

FORMAT: DOKE ADDRESS. 

VALUE(0-65535) 

Abbreviated to D(SHIFT)0 

AFFECT! I) BASIC ABBREVIATIONS: 

None 

MODES: Direct and Program 
RECOMMENDED MODE: Either 
PURPOSE: To POKE a 16 bit number in 
(LO/HI( format in locations address AND 
address+I. 

COMMAND: OMERGE 



FORMAT: DMERGE"FILENAME"C. 
DEVICE(8-II)| 
Abbreviated to D(SHIFT)M 
AFFECTED BASIC ABBREVIATIONS: 
None 

MODES: Direct and Program 
RECOMMENDED MODE: Direct 
PURPOSE: To merge a program from 
disk to the one currently in memory. 

COMMAND: DPROC 

FORMAT: DPROC NAMEl 

(VARIABLES)! 

Abbreviated to D(SHIFT>P 

AFFECTED BASIC ABBREVIATIONS: 

None 

MODES: Direct and Program 
RECOMMENDED MODE: Program 
PURPOSE: To define a procedure under 
the namc-NAME. 

COMMAND: DUMP 

FORMAT: DUMP FLAG (0 OR 1) 

Abbreviated to DtSHIF'DU 

AFFECTED BASIC ABBREVIATIONS: 

None 

MODES: Direct and Program 
RECOMMENDED MODE: Either 
PURPOSE: To dump the Hi-res or Lo- 
res screen to printer. II (lag equals nought 
then the Lo-res screen will be dumped 
else the Hi-res screen will be dumped to 
printer. 

COMMAND: ENTER 

FORMAT: ENTERtX CO-ORDINATE. 

Y CO-ORDINATEH STRING! 

ABBREVIATED TO E(SHIFT)N 

AFFECT ED BASIC ABBREVIATIONS: 

INI) 

MODES: Program 

PURPOSE: To input variables at a 
specific location on the screen. 

COMMAND: EPROC 
FORMAT: EPROC 
ABBREVIATED TO E(SHIFT>P 
AFFECTED BASIC ABBREVIATIONS: 
None 

MODES: DIRECT AND PROGRAM 
RECOMMENDED MODE: Program 
PURPOSE: To return from a proccudre. 
If this is not executed in a proc routine 
then a RETURN WITHOUT GOSUB 
ERROR will occur. 

COMMAND: FAST 
FORMAT: FAST 
ABBREVIATED TO F(SHIFT)A 
AFFECTED BASIC ABBREVIATIONS: 



None 

MODES: Direct and Program 
RECOMMENDED MODE: Either 
PURPOSE: To switch out the screen and 
theretbrc speed up basic bv approximated 

30% 

COMMAND: FIND 
FORMAT: FIND|TEXT| 
ABBREVIATED TO F(SHIFT)I 
AFFECTED BASIC ABBREVIATIONS: 
None 

MODES: Direct 

PURPOSE: To list the lines where the 
text occurs 

COMMAND: HI MEM 
FORMAT: HIMEM ADDRESS 
ABBREVIATED ID H( SHIFT)! 
AFFECTED BASIC ABBREVIATIONS: 
None 

MODES: Direct or Program 
RECOMMENDED MODE: Either 
PURPOSE: To set the bottom of memory 
to the address specified. 

COMMAND: LOMEM 
FORMAT: LOMEM ADDRESS 
ABBREVIATED TO L(SHIFT>0 
AFFECI ED BASIC ABBREVIATIONS: 
LOAD -> LO(SHIFT)A 
MODES: Direct or Program 
RECOMMENDED MODE: Direct 
PURPOSE: To set the bottom of memory 
to the address specified. This will 
perform a NEW at the new location when 
executed. 

COMMAND: MERGE 

FORMAT: MERGE! "FILENAME"!. 

DEVICEI I 

ABBREVIATED TO M(SH1FT>E 
AFFECTED BASIC ABBREVIATIONS: 
None 

MODES: Direct or Program 
RECOMMENDED MODE: Direct 
PURPOSE: To merge a program from 
disk or tape to the one currently in 
memory. 

COMMAND: OLD 
FORMAT: OLD 

ABBREVIATED TO 0(SHIFT)L 
AFFECTED BASIC ABBREVIATIONS: 
None 

MODES: Direct or Program 
RECOMMENDED MODE: DIRECT 
PURPOSE: To regain back a NEW ed 
program. 
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COMMAND: PLIST 

FORMAT: PUSTI FIRST LINE I- 

ILAST LINE II 

ABBREVIATED TO PL(SHIFT)I 

AFFECTED BASIC ABBREVIATIONS: 

None 

MODES: Direct or Program 
RECOMMENDED MODE: Either 
PURPOSE: To lis! a program from 
memory to printer. 

COMMAND: PLOT 

FORMAT: PLOT(X CO-ORDINATE. Y 

CO-ORDINATE) 

ABBREVIATED TO P{SHIFT)L 

AFFECTED BASIC ABBREVIATIONS: 

None 

MODES: Direct or Program 
RECOMMENDED MODE: Either 
PURPOSE: To position the cursor in the 
Lo-rcs .screen at the specified 
co-ordinates. 

COMMAND: POP 
FORMAT: POP 

ABBREVIATED TO P(SHIFT)0 
AFFECTED BASIC ABBREVIATIONS: 
POKE > POfSHIFDK 
MODES: Program 

PURPOSE: To enable you to RETURN 
from a GOSUB, CGOSUB or PROC 
routine as it takes the GOSUB parameters 
off the stack, i.e. it performs a RETURN 
without returning to the original location. 
If this is not used in a CGOSUB. GOSUB 
or PROC routine then a RETURN 
WITHOUT GOSUB ERROR will occur. 

COMMAND: PROC 
FORMAT: PROC NAMEI 

(PARAMETERS)! 
ABBREVIATED TO P(SHIFT)R 
AFFECTED BASIC ABBREVIATIONS: 
PRINT -> PR(SHIET)I 
MODES: Direct or Program 
RECOMMENDED MODE: Program 
PURPOSE: To GOSUB a defined pro- 
cedure under the name-NAME. 
The parameters will past into the variable 
names in (he OPROC command. 

COMMAND: QUIT 
FORMAT: QUIT 
ABBREVIATED TO Q(SHIFT)U 
AFFECTED BASIC ABBREVIATIONS: 
None 

MODES: Direct or Program 
RECOMMENDED MODE: Direct 
PURPOSE: To return to Basic. 



COMMAND: RECORD 
FORMAT: RECORD FILE . 
RECORD . [OFFSET! 
ABBREVIATED TO R(SHIFT)E 
AFFECTED BASIC ABBREVIATIONS: 
RED -> RE(SHIFT)A 
MODES: Direct or Program 
RECOMMENDED MODE: Program 
PURPOSE: To position the record 
pointer to the record number of the file 
number with offset— OFFSET tor a rela- 
tive File. The equivalent disk command 
is:— 

PRINT* 15."P"+CTIR$(FILE -196)+ 
CHR$(RECORD LO— BYTE)+CHRS 
(RECORD HI-BYTE)+CHR$(OFF- 
SET): where 15 is the file opened for (he 
command channel. 

NOTE. The command channel must be 
opened beforehand. 

COMMAND: SLOW 
FORMAT: SLOW 
ABBREVIATED TO S(SHIFT>L 
AFFECTED BASIC ABBREVIATIONS: 
None 

MODES: Direct or Program 
RECOMMENDED MODE: Either 
PURPOSE: To restore the screen back to 
normal and hence the speed of basic after 
a FAST command has been executed. 

COMMAND: VARLIST 
FORMAT: VARLIST 
ABBREVIATED TO V(SHIFT)A 
AFFECTED BASIC ABBREVIATIONS: 
None 

MODES: Direct 

PURPOSE: To print all variables (except 
arrays and functions) from memory to the 
current output device. 

COMMAND: WINDOW 
FORMAT: WINDOW TOP. LEFT. 
RIGHT. BOTTOM 
ABBREVIATED TO W(SHIFT)I 
AFFECTED BASIC ABBREVIATIONS: 
None 

MODES: Direct or Program 
RECOMMENDED MODE: Either 
PURPOSE: To set the window size. 

COMMAND: WRITE 

FORMAT: WRITE(X CO-ORDINATE. 

Y CO-ORDINATE) PRINTLIST 

ABBREVIATED TO W(SHIFT)R 

AFFECTED BASIC ABBREVIATIONS: 

None 

MODES: Direct or Program 



RECOMMENDED MODE: Either 
PURPOSE: To print at the specified co- 
ordinates on the screen. 

Functions 

FUNCTION: ACS 
FORMAT: ACS(X) 
ABBREVIATED TO A(SHIFT)C 
AFFECTED BASIC ABBREVIATIONS: 
None 

PURPOSE: To return the ARCCOS of X. 
where -K=X<=I 

FUNCTION: ASN 
FORMAT: ASN(X) 
ABBREVIATED TO A(SHIFT)S 
AFFECTED BASIC ABBREVIATIONS: 
ASC 

PURPOSE: To return the ARCSIN of X. 
where -|<=X<=I 

FUNCTION: BINS 
FORMAT: BINS(X) 
ABBREVIATED TO B(SHIFT)I 
AFFECTED BASIC ABBREVIATIONS: 
None 

PURPOSE: To return as a string the 
binary equivalent of X. where X is an 
integer such that (K=X<=65535. 

FUNCTION: BTOHS 
FORMAT: BTOHS(XS) 
ABBREVIATED TO B(SHIFT)T 
AFFECTED BASIC ABBREVIATIONS: 
None 

PURPOSE: To return as a string the hexa- 
decimal value of the binary expression 
given by X$ 

FUNCTION: DEEK 
FORMAT: DEEK(X) 
ABBREVIATED TO D(SHIFT)E 
AFFECTED BASIC ABBREVIATIONS: 
DEF FN -> DE(SHIFT)F 
PURPOSE: To return a sixteen bit 
number stored as Lo-hi formal in the 
addresses X and X + l. 

FUNCTION: DEG 

FORMAT. I)HG(X) 

PURPOSE: To convert radians to degrees 

where X is the number to be converted. 

FUNCTION: EVAL 
FORMAT: EVAL(XS) 
ABBREVIATED TO E(SHIFT)V 
AFFECTED BASIC ABBREVIATIONS: 
None 
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PURPOSE: lb evaluate to a floating point 
number the expression in X$. XS must 
contain functions only. 

FUNCTION: HTOBS 
FORMAT: HTOB$(X$> 
ABBREVIATED TO H<SHIFT)T 
AFFECTED BASIC ABBREVIATIONS: 
None 

PURPOSE: To return as a siring in a 
binary form the hexadecimal value in XI 

FUNCTION: RAD 
FORMAT: RAD(X) 
ABBREVIATED TO Rl SHI FT) A 
AFFECTED BASIC ABBREVIATIONS: 
None 

PURPOSE: To convert degrees to radians 
where X is the number to be converted. 

FUNCTION: TWO 
FORMAT: T\VO<X$) 
ABBREVIATED TO T(SHIFT)W 
AFFECTED BASIC ABBREVIATIONS: 
None 

PURPOSE: To convert a binary string 
(X$> to a floating point number. 



PROGRAM; *4 EX BASIC 1 



10 GRAPHIC1 , 1 :GRAPHIC0 

50 L-1S0: AD-4096 : PRINT "C CLEAR K D 

0UIN3C DOWN] WORKING; .", 

30 CK-0:FORX-0TO51:READriS:ri-DEC( 

HS3 : POKEAD'X . PI : CK-CK+n 

40 NEXTX : READCHS: IFOECCCHSX>CKT 

HENPR INT "ERROR IN";L:GOTO70 

50 AO-AO+SS: I FAD"> 860STHENPR I NT : 

PR I NT "C DOUINDOK " : GOTOB0 

60 PRINT" . " ; : L"L*10; GOTO30 

70 PRINT"LCs ID"L:PaKE539,4:P0KE 

1319, 145: POKE1350, 145 : P0KE1 321 , 1 

45:P0KE13SS,13;END 

B0 PRINT"[DOUINKDDWNDDEUICE CCR<- 
SONDTCRUSOFFDAPE OR C RUSONDDC RUS 
0FF3ISK) ? :DO:GETDS:LOOPUNTIL 
DS-"D"ORD$-"T" s PRINTDS 

BS POKEOECf " 3 3GB" ) . 95: POKEDECr "1 

36E • ) , 16: PQKEQEC1 " 13"?" ) . 76 : POKE 

DEC' "5109") . 144 

90 DE-1 : IFDS-"D ,, THENDE-6 

100 SYSB050"EXTENDED BASIC" , DE. 1 

, 4097 , 8608 

110 END 

150 DATA00,0O,10.00,00,9E,34.31, 
31 . 35 , 3A , AS , 00 , 00 , 00 , 00 , 4C , EB , 10 
.S0.73.04.043A 

130 DATAF0.07.C9.DE, 00,03,40,55, 
10.4C,D9,BB.S0,73.04,C9.9C,F0,1B 
,AS,75.F0.0AAD 

140 DATA03,4C,3B, 10, A9, 10,50,00, 
06 , 50. 30 , 06 , 50 , 79, 04 , 50, Dl , OS, 40 



,DC,BB, AS, 0746 

150 DATA75, F0. 03, 50, 4B. 10,40,00, 
BB, A9,40.50.00,06. A9.9C.4C.C3.C5 
, AP,FF,86.03E5 

160 DATA3A,e0,SA,88,BG.3B,B4.3C. 
50,73,04, AA.F0.EF, 90, 0D, 50 ,53, 89 
,50,79,04,0913 

170 DATAC9.DE, F0, 06, 40, D9.BB, 40, 
5E, 87,40, 55, 10, A9 , AF , A0, 1 1 ,84,53 
,85,55. A0.09C3 

180 DATA00,84,0B,BB,C8,50, A5.04, 
38 , Fl , 55 , F0 , F7 , C3 . 80 , F0 . 55 , Bl . 55 
,30,03,C8,0A03 

190 DATAD0,F9,CB,E6,0B, 18,98,65, 
55 , 8S , 55 , 90 , 05 , E6 , S3 , 19 , A0 , 00 , Bl 
,SS,D0.D9,0A5F 

500 DATA3B,50.79,04.4C,6A.89,05, 
0B, 08,40, D4, 99, AA.A0, 11 ,84.53, A0 
, AF , 84 . 55 , 0B8C 

510 0ATA4C,9E,8B 1 09,80,90, 18,03, 
9C,90,04,C9,AB,B0, 10,38, E9,BB,0A 
,A8,B9,5C,0AF6 

550 DATAlP.4H.Bfl.Sn IP 46.40,73. 
04,40, Al, 94, A0, 10 , A9 , 7B , BC . 00 , 03 
.80,00, 03. 071A 

530 DATAA0 ,10, AB , BD , 80 , 0F , 03 , BD , 
0E, 03, A0, 10, AS. C9. 80. 11,03,80, 10 
, 03, A9, 39,0796 

540 DATAA0,11.8C.0B.03.8D.0A.03, 
A3, 13, A0. 10,80, 0B, 03, 80,03, 03. AO 
, 10.AS,SS,0G5F 

550 DATA8D, 05,03, 80,03, 03, A3, 6A, 
A0 , 1 1 , 50 , FC , 50 , A9 , 01 , A0 , 51 , B4 , 5C 
.85.58^9,0798 

560 DATA00,BD.00,51.60,A9,00.95. 
0D,50,73,04,C9.FE.F0,06,50.79.04 
.40, IE, 94,0738 

570 DATA50,73,04,C9,9C,S0,5B.C3, 
A6 , B0 , 57 , 38 . ES , 80 , 0A . A8 , B3 , SO , 15 
,85,56, B9.0A6B 

380 DATA5D. 15,85,55.50.54,00,40, 
17 , 93 . 93 . 45 , 58. 54 , 45 . 4E , 44 , 45 , 44 
.50.45.41.063A 

590 DATAS3. 49,43, 50.46, 4F, 55, 50. 
54,48.45,50.43,4F,4D.4D,4F.44 1 4F 
,55,45,50,0SCC 

300 DATA50 , 40 , 55 , 53 , 5F , 34 . 00 , 45 , 
59 , 50, 55. 4F, 45, 45. 55, 54, 50, 4A. 41 
.59, 43. 4F. 0503 

310 DATA43,4B,53,50,50,31,39,38, 
36 , 00 , 40 , Al , 94 , 4F , 40 , C4 . 46 , 41 , S3 
,D4. 53, 40,0756 

350 □ATA4F,D7,57,49.4E 1 44.4F,D7. 
40 , 4F , 4D , 45 . CD , 48 , 49 , 4D , 45 . CD , 4D 
,45.55,47,0893 

330 DATACS.41,50,50,4S,4E,C4,50, 
4C . 4F , D4 , 57 , 55 , 49 . 54 , C5 , 45 . 4E , 54 
.45,05,44,0909 

340 DATA4F,4B,C5. 51, 55,49,04, 50. 
S5 , 4F . C3 . 44 . 50 , 55 , 4F , 03 , 45 , 50 , SS 
,4F,C3.43,090A 

350 DATA47,4F,54,0F,43,47.4F,S3, 
SS . 05 . 50 , 4F , D0 , 43 , 48 . 41 . 4S . CE . 50 
.4C,49,S3.0BB6 

360 DATAD4, 56,41, 55,40, 49, 53, D4, 
44, SS.4D, 00, 44. 40, 45, 55, 47 ,05. 46 
.49,4E,C4,0S04 

370 DATA55,4S,43.4F.S5,44,A3.45, 
53, 41. 56, 05. 44. 49. 53. CB, 44, 45. 45 
.OB. 54, 57. 0845 

380 DATACF,45,49,4E,A4,45,54.4F, 
48 , A4 . 4B , 54 , 4F . 45 . A4 . 45 , 56 , 4 1 , CC 
.41.S3.CE.08FB 

390 DATA41.43,03,44,45,C7.55.41, 
C4.00, 15.B4. 15.A8, 15.B1, 16.73. 15 
, CD. 15, EA.08A7 

400 DATA1S.FC.13,E5.14.5B.14.4B. 



1 4, SI , 14.01 . 14,57. 14,50, 8E.0A. 80 
.85, 15,00,0500 

410 DATA1S. 16, IS. 3D. IS. 58. 1A.S3, 
16, 6B, 1A.BS. IB. 03, IE. 07, 1E,F7.1F 
,53. 1F.9E.05CE 

450 DATA17.7F, IB. BB. 13,03. 19,30, 
13.48, 19,66. 13. OS. 1A.0S, 1A, 3D, 1A 
, 10,00. AD, 04FE 

430 DATA0B,FF,59,EF,BO,06,FF,60, 
40 , 78, E3, A9 , FF . A0 , 01 , 31 , 5B, 50, IB 
,8B, A5, 55, 0A45 

440 DATA1B, 63. 05,85,50, AS, 53,69, 
00 , 85 , 5E . 40 . 9A , BA . 50 , 14 . 93 , 50 , E4 
,9D, A4, 1S.07AA 

450 DATAA5, 14 , 84 , SO , 85 , 5B . A9 , 00 , 
A0,00.31,5B,E5.5B,D0,05,E6.5C,4C 
.7B.8A,50,0BB4 

460 DATA14,93,50,E4,9D,A4,1S,A5, 
1 4 , 84 . 38 , 85 , 37 , 60 , 4C , 5 1 , 99 , 80 , D5 
, 13,96, 5B.0B51 

470 DATA84, 50, A0,00, 98, 91, 5B, 50, 
75, 13,86. 5D. 86, 5E, 50, 18,88,50, BS 
, 13, A9.SE.07SF 

490 DATAAS, 13, 9D, 05,03, BE, 03,03, 
A9, 01 . 85 , 3C , A9 , FF . 85. 3B , A0, 00 , A3 
,00,50, 94, 0B7B 

490 DATA04.BS,DS,C8,A9,D0,S0,94, 
04,BS,D3.F0,5D,C8.A9,D0.S0,34,04 
,8S,14,C8.0BS3 

500 DATAAS, 00,50.94,04.85, 15, AS, 
00, EB , 08 , A9 , 00 . 50 , 94 . 04 , 90 , FE, 01 
,D0,F4,BA,0B3B 

510 DATAA8 , 50 , 34 , B7 . AS , OS , A6 , D3 , 
85,00, 86, Dl ,D0,B8, A9, IS, A5,87,8D 
,05,03,BE,0BAB 

550 DATA03.03, 50, 03, 87, 50,03,13. 
A9 , 00 , 85 , AD , A6 , 5B , A4 , SO . 30 , D5 , FF 
,B0,10,S0,07F6 

530 DATAB7,FF,S3,BF,F0,08,S0,9D, 
13, AS, ID , 40 , 83 , 85, 60 , 48, S0 , 90, 13 
,68.40,70,0353 

540 DATAA7.A5,O0,3B,E9.05 ( 8S,14, 
ftt, 01, E9, 00, 85,01, AS, 00, A8, 91, 14 
,CB,91, 14.0AF0 

550 DATAA5 , DS . A6 , D3 . 85 , SB . 86 , 5C , 
AS . D0 , AB , Dl , 85 , SD , 86 , SE , 60 , A9 , 00 
,50, BD. FF.0BB9 

560 DATAAS, 01, A0 . 00 , S0 , BA . FF , S0 , 
9D,A8,4C.7A, A8,A5,SB,B5 ( DS, AS . 50 
,85,03, A6.0AE5 

570 DATASD,A4,5E.86,D0,84.D1.60, 
S0 , D5 , 13, 8A , 38, EB , 05 , 85, SB, 38, E3 
.00. 85,50. 03A1 

5B0 DATAS0.75, 13,86,00,84,01,50, 
BS, 13, 50, IB , 88 . 60 , 50, 14 , 93, 50, E4 
.90, A5, 14,0879 

S90 DATA95,F1,A5,1S,B5,F5,S0,91, 
94.50. 14,33,30, E4.9D, AB. 15.A5.14 
, A0.00, 91 ,09F9 

600 DATAF1 , 08 , BA , 91 , Fl , 60 , 4C , 51 , 
39. 50 , BE , 94 , 50. 84 , 9D. E0 , 58. 90 , 03 
.4C, 1C,93,0A4A 

610 DATA8A,4B,50, AS , AS , 50 , 84 , 3D , 
E0. 13, B0.F1 ,68. AB, 18.50, F0.FF.S0 
.8B,34.60,0AF0 

650 DATA50, 59, 14,40.00,90,50,59, 
14,40,09, 91 ,50, 17,81, 4C.6B, 05. AS 
,00, 06, 3B, 0655 

630 DATAB0 , 0S , C6 , 30 , 50 , 73 , 04 , F0 , 
10, 09, SB , D0, 06, 50 , Al , 17 , 4C , 7B. 14 
,9D, 00, 05,0764 

640 DATAEB , 00 , EB , A3 , 00 , 9D , 00 , 05 , 
A0 , 05, 50 , 05 , 83 , BB, A5 , 30, 31 , 7C , 88 
,A5,3B,31,09AD 

650 DATA7C 1 9B,A5.3A 1 91.7C,88,A5. 
33 , 31 . 7C , B8 , A3 , 9D , 91 , 7C . A5 . 5B , 95 
,D0.AS ( SC.0BS4 
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SS0 DATABS.Ol, A0.00. A3. D0. 20. 94, 
04 . B5 , 08 , C8 , A9 . D0 , E0 , 94 , 04 . 85 , D3 
,D0,05,A8.0B46 

670 OATA11,4C,83,BB,A0 ( 04,A9,D0, 
50, 94.04, C9,FE,D0,0A,CB,A9.D0,S0 
,94,04,C9,0A9E 

580 DATA8E,F0,0A,AS,D8,B5.D0,AS, 
D3 > BS , Dl , D0, C9 , Ae, FF , E8, CB, as, D0 
,20,S4,04.0E3O 

690 DATAF0, 11, C3, 28. D0. 06. 20.C0, 
17.4C,FE,14,DD,00.02,F0.E8.D0.OA 
,DD, 00.05, 0A5D 

700 DATAO0,D5,3B,AS,D0,E9,01,6S, 
3B , AS , Dl , E9 , 00 , 85. 3C . 4C , DC. BB . 50 
. 14.93.50.0AB6 

710 DATAE4,9D 1 4C.S0,BD.A0, 05.50 
35 . 89 , 88 , AS , 3C , 91 , 7C , 88 . A5 , 3B , 91 
.7C.8B, AS.0A15 

750 0ATA3A,91,7C,BB,A5,39,91,7C, 

88,A9,BD,91,7C,S0,79,04 ( 20.0E I 1S 
>4C,DC,8B,0918 

730 DATAA9 , FF , 85 , 4A , A9 , BD , 85 , 05 
50 , 71 , 88 , F0 , 05 , A5 . 0C , 4C , 83 , 86 , 20 
,69. A7, A0.0A15 

740 DATA05,50.75.A7.60. A5.35.C5. 

5E . D0 , 09, AS , 31 , C5, 2D, D0, 03 , A9. 80 
,fiC, A9.00.08DA 

750 DATAB5 , 0C , 50 , 79 , 04 , 4C . 80 , IS , 
AS , 0C, 10. 04 ,C6, 30, CB, 32,50.50.80 
,4C,DC.8B,0742 

760 DATA20 , 6B , AB , EA , EA , EA . EA , 50 , 

54 , A3 , AS, 20 , 85, SF , A5, 2E , 85, 60 , 38 
,AS,31,B5,0AF9 

770 DATASA.E5.5F, 85, 08. A5, 38.85, 

SB.ES.SO.BS.DS.AS.SS.Sa.EB.Ol.BS 
.58.A5,34,0A99 

780 DATAE9.00,85,59,50.C7 ( BB.AS. 

37 , BS . 41 , AS , 3B , 85 . 45 , AS . 5B . 85 , D0 
.S5,37,E6,0A70 

790 DArAS9,AS,S9,B5.Dl.BS,3B.A6. 
2B.A4.2C. A9. 00,20. DS.FF. 90,03. 4C 
,7D.A7,20,09CB 

B00 OATAB7.FF.29.BF.F0.05.A2. ID, 
4C . 83 , B6 . 86 , SO, 84 , 2E, 86 , 5F, B4 , 60 
. A5.D0.8S, 0ACF 

B10 D«TA5A.AS.D1,85,5B.38, A5.33, 

E9 . 01 . AS . AS , 34 . E9 , 00 . AA , 9B . 38 , E5 
. SA . 85 , 58 . 0AAA 

950 OATAAB , 8 A , E5 , 5B , A A , E8 , 98 , F0 , 
1F ( A5.5A, 18, 6S, 58,85. 5A. 90,03 eg 
,5B. 1B.A5.0AEC 

830 OATA5F,65,SS,B5,5F,90.05.E5 ( 

60,9B.49,FF. AS. CB, C6 , 5B, C6 , 60, A9 
,5A,50 ( 94,0B56 

840 DATA04 ( 91,5F.CB,D0.F6 t E6,5B, 
E6.60,CA.O0,EF,38, A5 , 5F, 85. 31 , E5 
,D2,B5.2F,0CEF 

850 DATAAS,60,e5.35,ES,D3.8S ( 30, 
AS , 41 , 85, 37 , A5, 45 , 8S , 36, 6B , 6B , 20 
, 18,B8,A9,03AB 

B60 DATA00 ( 20,90,FF 1 20.E7,FF,20. 
05 , BA , 20 , EE , BA, 4C , 72 , 15, A5. 9A , C9 
,80,F0,01,0B18 

870 DATA60, A5, 50 . BS . AF , A5, SE , 85 , 
B0 , AS , B0 , CS , 30 , D0 , 07 , AS , AF , C5 . 2F 
, 00, 01 , 60, 0B0B 

880 DATAA0, 00.A9, AF, 20, 94.04. C9, 
B0,B0,6F.50.DS,FF ( CB, A9.AF, 20,94 
,04,C9,7F,0B29 

B90 DATAB0,1A,20,D2 1 FF.20,6E,17, 

A5, AF.A4, 60,50.22. A2. 20, 6F.A4, 50 
, BB, 90, A9, 0A00 

900 DATAFF,F0,03,4C,4C,17,29,7F 1 
20,D5,FF. A9,24,20 ( O2,FF 1 20.6E 1 17 
,A9. 52.50, 09BB 

910 0ATAD2.FF, A0 , 00, A9.AF, 50,94, 
04, AA.F0, IE, CB, A3, AF, 20.94,04,85 



, 22, CB, A9.0B59 

920 DATAAF. 20, 94,04.85,23^0, 00, 
A9, 22, 50, 94. 04, 20. 02, FF,C8,CA,De 
.F4, A9.55.0A44 

930 DATA20,D2,FF.F0,51.D0,4F.90. 
03.4C,7B,16,29.7F ( 50,DS ( FF,C8, A9 
,AF, 20,94, 0B5E 

940 OATA04.C9,7F,B0,12.50,D5.FF, 

50.6E,17.A9 ( 46,50,n5,FF,A9,4E,20 

,D2,FF,D0,0B3C 

950 DOTA29.29,7F,20.D2,FF,A9,2S I 
20,D2,FF,20 1 6E,17.A0,00,Ag i AF,20 
, 94 , 04 , 85 , 09SB 

960 DATA65.C8.A9.AF, 50. 94,04.65 
63. A2. 90.20.C9, A2 . 20 , 6F , A4 , 20 , 88 
,90,A9,0D,0A00 

970 DATA20,D2,FF,18 1 A5,AF,69 ( 0S. 

65, AF,90,02.E6 ( B0,20 ( E4.FF,50,E1 
, FF , D0, 01 , 08FB 

980 DATA60, A5,C6,C9, 40,00, Fl 38 

B0 .8F,A9.3D,80,D8,FF,1B,AS,AF,69 
,02,8S,AF,0BEE 

990 DATA90,02.E6,B0,60,20,73,04, 

20, 8S , 94 , AS , 15, 48 , AS, 14, 48, 20 , E4 
,9O,A0.01,0B9O 

1000 DATAB1, 14.AA.8B.B1. 14.AB.6B 
.B5. 14,68,85, 15 , 8A , 4C , 76 , 9A , AS , 3 
B,8D,48,1B,091A 

1010 DATAA5,3C,BD. 49, 18.50,73,04 

,C9,29,F0,03,4C,AB,17,20,73,04,D 
0. 01,60, A5.07C3 

1080 DATA0E,4C.83,B6,18.9B,65,D0 

, BS , 3B , AS , Dl , 69 , 00 , BS , 3C , 50 , De, 1 
7. 4C, 33, 18,0848 

1030 DATA80 i 73, 04 , 20, 4B , IB, 80 , 42 
1 1B,8C,43,1B,A5,0E,8D,44.18,A5.0 
D,BD,45,1B,0650 

1040 DATAAS,3B,A4,3C,8D t 46,18,8C 

.47 ( IB.AD,4B,18 1 AC,49,18.8S,3B,8 
4.3C,AD,45,0B1F 

10S0 DATA1B.B5.49.AD.43.1B.8S.4A 
,50.73,04,20,2C,93,A5,3B,BO,4B,1 
8,A5,3C,BD.076E 

1060 DATA49 ( 18,AD t 44,lB,85,0E 48 
.AD. 49, 18,85,00, 4B.A9.BE .48^9,9 
0,48, AD.4&.081C 

1070 DATA1B.BS,3B,AD,47.18,85,3C 
,60,20,79,04,C9,5C,F0,34,C9 59 F 
0.03,4C,BB,08A7 

10B0 DATA17.60, 00, 00,00,00.00 00 

,00,00,00,A6,3B,D0.02 1 C6,3C,C6,3 

B. A5,00.S4 ( 04F3 

1090 OATA4e.8A,BA,E0,5e.30,0E.50 

,61.18,60^9.00,85.00,50.73,04,4 

C. A5,96,4C,07D0 

1100 DATA57, 93,50,02, 17,4C,33 18 

, 20,84,90. E0, 19, B0.3A, 86, 00,20 0 
B,9D.E0,28,0971 

1110 DATAB0, 31,86. 01, 80, 08,90. E0 

,58.B0,28 1 B6,D2,20,DB,9D,E0.19 ( B 
0.1F,86,D3,0BBB 

1150 DATAAS.DO.CS.DS.Ba.^.AS.Ol 
, CS, 02, B0 , 1 1 , ft5 , 03, A6 , 02. 20 , 67 0 
E,AS,D0,A6,0Eie 

1130 DATAD1.50,7A,DE.4C,91.D8.4C 
.1C.99, AS. 14.48. A5. IS. 48.50, 73,0 
4,50,85,94.0802 

1140 DATA50,67,9D,85.55,C9,10,F0 

. 07 . C9 , 08 . F0 , 03 , 4C , Al , 94 . AS . 00 , 8 
5,14,B5,15,08EC 

1150 DATAA0,00 i 20 i B0.04,CB.C9,32 

, B0 , 1C , C9. 30 , 90 . 1 8 . 6A , 26 . 14 , 56 , 1 
5,C4,58,D0,0869 

1160 DATAEB.AS, 14, A6, IS, A8, 68,85 

i^??4*e. , ^' 4C - 76 - 9fl - ,lt: '' 1 - 9 

1170 0ATAA5, 15,48,50, 73, 04. 20, BE 



. 94 . 20 . 1 4 , 93 , 50 , E4 , 90 . 50 . 8B . 94 , 2 
0,24,19,68,0747 

1180 DATA85, 15,68.85, 14, 4C.CA.9C 
,A9. 10 l 20 ( SC,9B.A0,00,O9 ( 00 i0G>I 
4,26, 15.2A.06E5 

1190 OATA69,30.91,62,CB 1 C0.10,D0 
.F0,60,20.B8, 18. AS, 14, 48, AS, IS, 4 

B. 4C, 10, BS, 0948 

1200 DATA20,73 ( 04,20,B5,94,e0.1B 

. 9E , A5 , 14 , 48 , AS , 15 , 48 , e0 , E4 , 9D , e 
0,54, 19,68,0715 

1210 DATA85.15, 68,65, 14. 4C.CA.9C 
. 20 , 73 , 04 , 20 , 48, 9C , C9, SB , 90, 03 , 4 

C. 4C, CC, 85, 0885 

1250 DATAD0, AS , 3B , 48 , AS , 3C , 48 . A0 

, 00 . 50 , B0 , 04 , 99 , 00 , 05 , CB , C4 , 00 , D 
0,FS,A9.00,09FA 

1530 DATA99. 00,02. B5.3B. A9.02 8S 
. 3C, 20. 53. 89, 20. 14. 93. 68, 85, 3C . 6 
B.BS,3B.60,073B 

1240 DATA24,61.18,10,23,A5,61,59 
.7F,C9.0e,B0.1C,C9,01.1B.D0.1B,A 
2,00, BS. 63,0797 

1550 DATAC9,00,D0,0F,E8,E0,03,D0 
, F5 , AS , 62 , 59 , 7F , C9 , 00 , D0 , 05 , 38 , 6 
0.4C, 1C,99,0A1B 

1260 DATA50,73.04,50,85,94,4C,17 
, 93, 20, CC, 19,20, A0, 19, 90,03, 4C,0 
F, 1A, A0, 1A.0666 

1570 DATAA2 , 3B , 20 . 59 , A2 . 20 , 27 , A5 

,A0, 1A.A9, 38,50, 5C,A0,A0,9F,A9 ,F 
0,50,66, A0.0997 

15B0 DATA50,E4,A5,A0,1A,A9,38,50 
, 75 , A0 , 4C , 1 A , AB , 50 , 05 , 19 , A0 AA A 
9,EC ( 4C.6C,0A5C 

1590 DATAA0,AS,66.10,06,20 ( 7F,1A 
.4C,e7.A6,4C,7F, 1 A . 20 , CC , 19 , A9, 3 
9, A0,94,20,07B3 

1300 OATA5C,A0,20,94,A5,A0,1A.A9 
. 33 , 20. 81, A2.4C. 97, Al. 88, 34, 00.0 
0,00,00,00,0708 

1310 DATA00,00,00,20,CC, 19, A0, 1A 
, A9 , 33 p 20 , 5C , A0 , 20 , 94 , A2 , A9, 39 , A 
0,94,20,21,0764 

1320 DATAA2,4C,97,A1,20,E7,FF ( A9 
,00,20,BO,FF,A9 1 04,AA 1 A0,FF,50 ( B 
A 1 FF,80,85 I 0C5S 

1330 DATAA7,A8,04,e0.97 1 A7,A9,0D 
i e0.De.FF,80,79,04.80 1 FF.8A ( A5.0 
4,e0,C3,FF,0A50 

1340 DATA4C,E7,FF,A9,EC,A0,AA,4C 

, 51 , A5 . 50 , 84 , 90 . E0 , 08 , 90 , 03 , 4C , 1 
C.99,B6.E0,0B3D 

1350 0ATAA9 , 04 , Aft , A0 , FF , 80 , BA , FF 

,A9,00.80.BD,FF.50,C0,FF, A5.04.8 
O.CB.FF.AB.OCB? 

1360 DATAEO.FO.OS^C.BB.IC.AD.IS 
.FF,C9.D1,F0,0B, A9 , 1 1 , BD . FE , 07 , 5 
0,DS,FF,4C,0Ba3 

1370 DATAC8,1A,A9,91,8D,FE,07 1 80 
, D8, FF , A9. 00, 85, 55, A9.0C, 85,53. A 
5 , 00 , A0 , 00 , 098E 

1380 0ATA3B,e5,4B,38,Bl,85.e5,5E 
, 85 , 50, 38 , SB , 4B , AS, 4B , AB, A5, SE, e 
9,80,F0,09,098D 

1390 DATAe0.B9,lB,A5,SE.e9,7F,85 
,5E, AS, 5E, £9,80,18. 10,08,69. 60, 9 
9,AC,1B,4C,0803 

1400 DATA8F,lB,69,e0,38,E9.40,lB 

.lo.os.Bg^o.gg.AciB^c.eF.iB.B 
g^o.sB.EB.aecD 

1410 DATA60,lB,10,0a,6g,80,gg,AC 

.lB^c.eF.iB.Bg.sa.sB.Eg.ee.iB.i 

0, 05,69, C0.078F 

1480 0ATA99,AC,lB,6B.ftB,C8,E6,4B 

.AS.so.eg.ao.Fo.os.eo.sB.iB.co.i 

4,D0,96.A0,0AB7 
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1430 DATA00.B9.AC, IB , 20 , OB , FF , CB 
,C4,4B,D0,FS,EB,E0,3e,O0.ie,A3,9 

1 , 20 , OB, FF , 0D14 

1440 DATAA9.0O.e0.DB.FF. A3. 04. B0 
CS.FF.HC.CC.FF.IB, AS,ee,69, 14,8 
S,e2,A5,e3,0AlB 

14S0 DATA63 , 00 , B5 , B3 , A5 , BB , B9 , 04 
, F0 , 03 , 4C , OB , 1 A , A9 , 0D , 20 , D2 , FF , A 

D, FE 1 07,20,0BA9 

1460 DATAD2,FF,4C.D2 1 1A, BA.eS, 4C 
, A5 , 4B , AA , A9 , 12 , 9D , AC , IB , E6 , 4B , A 
5.4C, AA.C8.0BB1 

1470 DATA60 , BA , 85 , 4C , A5 , 4B , AA , A9 
.Se.SD.AC.lB.EB^B, A5.4C, AA.60,0 
0,00,00,00,0920 

1480 DATA00, 00, 00,00, 00.00,00,00 
. 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 . 00 , 00 , 0 
0,00,00,00,0000 

1490 DATA00,00,00, 00,00,00,00. 00 
, 00 , 00 , 00 , 00 , 00 , 00 , 20 , 92 , 1 C , A9 , 8 
6, A0, 1C, 20.02D9 

1500 OAT ABB , 90 , 20 , 72 , Fl . AD , 02 , 03 
. 8D , 90, 1C , AD, 03, 03, BD , 91 , 1C , A3 , 0 

E, 20,A6, 1C.0B0C 

1510 DAIABS,AC,BD,85, 1C,A9,00,8S 
, AD , 20 , C0 , FF , AE . 85 , 1C , 20 , C6 , FF , A 
9,84,8D,2A,0B31 

1520 DATA03, A3, 1C,BD,2B,03.A9, IE 
.80, 02, 03, A9, 1C,8D,03,03,20,CF,F 

F, 20,CF,FF,0B10 

1530 DAIA20 1 CF,FF,85, 14.e0.CF.FF 
.85, IS, 05.14. F0, 36. AS. 90, 00,32, 2 
0,CF,FF,B5,0AF8 

1S40 DATA14,e0,CF,FF,8S,15,A0,00 
, 20 , CF . FF , B9 , 00 , 02 , AE , F6 , 07 , E0 , 3 
F.F0.19.C8.0A60 

1550 DATAC9 , 00 , D0 , EE , 98 , B5 , 0B , AS 
, 90 , D0 . 00 . A9 . 02 , A0 , 00 , 85 . 3C , 84 , 3 

B, A4,0B,4C,09B7 

1560 DATA36,B7,AD,90, 1C, 80, 02, 03 
, AD, 31 . 1C, 90,03, 03, A9 , 08 , BD , 2A , 0 
3, A9.EF, 80,0825 
1570 DATA2B , 03, AO , 85, 1C , 20, C3 , FF 
,20,CC 1 FF > 4C.03.e7,60.00,4D.45,5 
2, 47, 49, 4E, 0841 
15B0 DATA47,20,00,00,00,00,A9,EB 
, 20 , 2 1 , CB . 20 , B5 , CC , A9 , 00 , 80 , 78 , 0 
2.85.0A, A0,07B2 
1590 DATA05,4C,3F,CA,A6,97,E0.00 
, F0 , 0E , DD , 08, 05 , D0 , 06 , 38, E9, 01 , 4 

C, A6, 1C.CA.092F 
1600 DATAD0,F2,60,20,BF,C7 ( A9,08 
, 20 , 02 , FF , A3 , 0D , 20 , D2 , FF , A9 , 00 , B 

D, AF , IB , A3, 0BBA 
1610 DATA06 , 80 , B0 , 1 8 , A9 , 00 , BD , AC 
, 1B.8D, AD, IB, A9,B0,BD,B1 . IB. AD, A 

F. 1B,BO,AE,09E4 
1620 DATA1B, AD, AC, 1B,BD,B2, IB, AD 
, AD, IB , 23 . FB, 80, B3. IB, A3 , 00 , BD, B 

4,1B,BD,B5,0A21 
1630 DATA1B , AD , AE , 1 B , 4 A , 4 A , 4 A , AA 
,F0, 17. A9, 00, AB, 48, 18.98,69,40, A 

8,68,69,01 ,088C 
1640 DATA4B.CA.D0,F4,BC.B5,1B,68 

.BD.B4, 1B.AD.AE. 1 B . 29 . 07 , 8D , B6 , 1 

B, AD, AD, 1B.0A6F 
16S0 DATA29, 07 , 8D, B7 , IB, A9, 07 , 36 
, ED, B7, IB, BD, B7 , IB, IB, A3, 00, 6D, B 

5, IB, AB, A9.08E4 

1660 DATA20.6D,B4,lB,AA,g8,6D,B3 
, IB , AB , BA , 6D , B2 , IB , AA , 98. 6D , B6 . 1 

B,8D,B9, 1B.0A26 
1670 DATA8A, 69,00,80, BB, IB, AC, B9 
, IB , AD, BB, IB , 8S, Dl , A9, 00, 85, D0, A 

9,D0,20,34,0AD4 

1680 DATA04.eD,BA,lB.A3.01,AE,B7 
, 1 B , F0 , 04 , 0A , C A , 00 , FC , 2D , B A , 1 B , F 



0, 15, AD, AE.0A86 

1630 0ATA1B, 38, ED, AF , IB, 8D, BB, IB 
,A9,01,AE,BB, 1B,F0,04,0A,CA,D0,F 
C, 18,60, Bl ,0A6S 

1700 DATA1B , BD , Bl , 1 B , AD , AF , 1 B , 18 
.60, B0, IB, EE, AE. 1B.CD.AE, IB, 30,0 
3,4C,EB,1C,030E 

1710 DATAAD,B1,1B,20,D2,FF,18.AD 
, AD, IB, 69,01 ,BD, AO, IB, AD, AC, IB ,6 
9,00,80^,090: 

1720 DATA1B , A9 , 01 , CD , AC. IB, D0, 07 
, A3 , 40, CD , AD , IB , F0 , 03 , 4C, DA, 1C , A 
9.0D.20.O2.098B 

1730 DATAFF, AD, AF, IB, 18,63,07.80 
, AF , IB , C3, C4, B0. 03, 4C, D2, 1C , C9, C 
B,F0,0B,A9,0B04 

1740 DATA03,8D,B0, 1B,4C,D2, 1C. A9 
, 0F , 20, D2 , FF , A9 , 0D , 20 , D2, FF ,20 , 0 
2,FF,A9,04,0A83 

1750 DATA20,C3,FF.4C. CC.FF.20.de 
,B6,AS,3B,8D,33, 1E,BD,4E. 1E.A5.2 

B. B5.SF, AS.0ABD 

1760 DATA2C,B5,60,A0,01,84,0F,20 
,6D,81,F0.43,20,E4.FF,C9,03.F0,3 

C. A0.03, A2.09C6 

1770 DATAFF, B4, 03, E8.BD, 02,02, F0 
1 33,C9,20,F0 1 F6,C3,22,F0,F2,CB,2 
0,6D,81,F0,0CB4 

1780 DATA12.C3,20,F0,F6,C9.22,F0 
, F2 , SD , 02 . 02 , F0 , OF , A4 , 03 , CB , D0 , D 
6, A0.00.20.0BB3 

1790 DATA6D,B1,AA,CB, 20, 60,81,86 
, SF , 85, 60, D0 , B4 , 4C , CB, IE , A0, 01 , 8 
4,0F,20,3E,09B3 

1B00 DATA90,CB, 20,60, 81 , AA , CB , 20 
, 6D , 81 , 84 , 49 , 20 , 5F , A4 . A9 . 20 , A4 , 4 

9 , 29 , 7F , 20 . 0954 

1B10 DATAB2.90.C9.22.D0.06.A5.0F 
,49,FF,B5,0F,CB,F0,D2,20,6D,81,F 
0,BD,10.E9,0BD1 

1B20 DATAC9,FF,F0,E5,C9,FE,F0,3A 
. D0 . 47 , 24 , 0F . 30 , OB . AA , 94 . 43 . A0 , 0 
0.0A.F0, 10,0C04 

1B30 DATACA. 10. 0C, E6, 22, 00,02, E6 
,23. Bl.ee, 10, F6. 30, Fl.CB.Bl, 22, 3 
0,BB,20,Be,0AlB 

1840 DATA90,D0,F6.20,3E,30,A0,01 
, A3 . 00 , 91 , 3B , 88 , A9 . 3F , 31 . 3B, AB , 8 
0.4C,83,86,0A0D 

1BS0 DATAAe.ll.86,e3,Ae,AF,86.2e 
, CB , 20, 6D , 81 , 4C , A6 , IE , A2, 81 , 86, 2 
3.Ae,8E,B6,03BD 

I860 DATA22,4C.A6.1E,20,84,9D,E0 
,9F.90,03,4C, 1C,99,B6,D0, 20,91 ,3 
4,20, 14,93,0BE8 

1870 DATA20,E4.9D,B4,Dl,aS,D2,20 
,42, 1F,A2,0F,B6, 13.20.97.A7, 18. A 
5,00,69, 60, 03CC 

1880 DATABD.S0, IF. AS.Dl ,80,51 , IF 
, AS, D2 , 8D, 52, IF , A5 . 03 , 8D, 53 , IF , A 

0. 00.B9.4F.0A03 

1890 OATA1F 1 20,B2,30.C8,C0,05,D0 
, FS , 4C , FE , 90 , A9 , 00 , 85 , D3 , 20 , 90 , A 
8,20,D8,9D,0BAB 

1900 DATAB5,D3,60,S0,00,00,00,00 
, 20 , 68 , AB , A5 , 2B , A4 , 2C , 85 , 00 , B4 , D 

1 , AS, 2D, A4 , 08FC 

1910 DATAeE,BS,D2,B4,D3,20,7E.lF 
, 20 , D8 . FF , AS , D0 , A4 , Dl , BS , BB , 84 , e 
C,A5,D2, A4.0BF5 

1320 DATAD3,8S,2D,84,eE,60,e0,30 
, 1F,B5,2C,B4,2B,20.90, IF, 49, 98, A 

A.BB.AB. A9.0BD8 
1330 OATA2B,60.e0,3D,AB,20,91,34 
. 20 . 14 , 33 , 4C . E4 . 9D , EA . EA , EA , 20 . 4 

8.9C.85.D0.0AE0 

1940 DATAB6.D1 , 84,02,20, F7, IF, A0 



5 , C4 , 37 . F0 , 0B , B3 , 1 D . 05 , C9 . 6F , F 
0. 1F,C8,4C,0B0F 

1950 DATAAD,1F,A9,0F,20.A6,1C.B5 
, 04 , A0 . 0F . A6 , 03 . 20 , BA , FF , A9 . 00 , 2 
0,BD.FF,20,OA65 

1960 DATABS. A7, AS,D4,4C,E1 , 1F.B9 
, 1 3 , 05 , CS , D3 , D0 , DA , BE , 09 , 05 , 20 , 3 
7,A7,A5,D0,0BA4 

1970 DATAA6, D1.B6, 22, A4.DB, 84, 23 
, 20 . BE . 90 , 20 , 3E . 90 , 4C , FE , 90 , 20 , 7 
9.04, D0 ,05,0964 

1380 DATAA2,0B,86,D3,60,20.DB,9D 
, E0 . 0B , B0 . F6 , 4C . 1 C , 99 , 0C . 06 , 25 , C 
3,06,02,04,0703 

1990 DATA12,0B.03,0B. ie, 15,eC,06 
,0B, IB, lE,eF.47,7A.7E,BF.DC.E0,E 
9.F3,FD,09,0790 

2000 DATA 13, 1 B , 34 , 5C , 6 1 , SC , 5E , 60 
.6e.64.66.6B,6A,6C,6E.70,7e,74,7 

6. 7C.7E. 80,0857 

2010 DATABe.a4,B6.8B,8A,BC,BE.90 
, 92 . 94 , 96 . 3B . 9A , 9C , 9E , A0 . A2 , A4 . A 

6.FF.0B. 15.0C1B 

BOB© DATA19.77.8E.98.EB,F6.FD,4E 
,S4,71,74,EE,F1.3A.71.6B,AS.B9,C 
6,01. 16.eF.0B77 

2030 DATAA5 . AA , B4 , CE , Dl , D7 , DA , DD 
( E2.E7,EE.F1,F4.F7,FE,03, 10, 15, 1 

8, lE.2A,2F,0D7a 

2040 DATA40.SF, 70,73,1 A. 3E.SC.D7 
.DA,DF.E1,EB.FC,07. 15, IB, 1E.2A.3 
F.41 .AD.BF.03F9 

2050 DATAEC,FE.01.0E.ll. IE, 21, 2E 
,3C.4S,7A,88.93.AS.D6.DA,E6,EC,F 

l.F6,00,0A,0AAS 
2060 0ATA14,64,6A,7A,B6,CC,D1,D6 
, D3 . OE , El , E4 , E7 , EA, ED, F2 , F7, FA , F 
0,16, 1A, 1D.0EEC 

2070 □ATA22,2S.eA,30,33.33,3F,44 
, 49 , 4E, 51 , 57 , SA , 5D. SB, 70 , 79, 7E , 8 
2. 85. 8A, 94.0770 
2090 DATA97,3A,3E,A1 , A4,A9,AC.B3 
, BB , BB , C0 , C5 , CC , Dl , D3, DF , E6, EF , F 
e.0F,ie,63.0EBA 

2090 DATADF , EC , F7 , 1 3 , BB . 27 , 2C , 31 1 
, 36 . 69 , AA , BB , C0 . D6 , 20 , 8B , 90 , A0 , 0 

0,B9,0D.21 ,09D4 

2100 DATA39.00,06,CB,C0.BD,D0.F5 
, 60 , 78 , BD , 3F , FF , 85 , D2 , C9 . 1 0 , 00 , 1 
5.A9, 18.BD.0B7F 

2110 DATA46,06.A9,59.eD,47,06,A9 
. 20 . 80 , 35 , 06 , 8D . 3C , 06 . 4C , 31 , 06 , A 
3.38,BD,46,06CF 

2120 DATA06.A9.E9,8D,47,0S, A9.S0 
, 8D , 35 , 06 , 80 . 3C , 06 , A2 . 00 . BO . 0B . 2 
0,85, D0.A0, 0881 

2130 DATA00 , B3 , 1 B , 20 , 85 , 01 , CB , 84 
, 03 , A0 , 00 ,B1 , D 1 , 1 6 , 69 , 30 . 9 1 , 01 , A 

4,D3,C4,D0,0BA9 

2140 DATAD0, E9, IB . 9B , 6D , 3B , 06 , BD 
, 3B , 05 , 90 , 03 , EE , 3C , 06 , E8 , E6 , 02 , E 
0. 10,D0,CE,0AD6 

2150 DATAAS.D2,C9,40.B0.03, A2,40 
, 2C , A2 , 10 , BE , 0D, 03 , BE , 0F , 03 , 8E , 1 
1,03,BE.03,076A 

2160 DATAQ3, BE .03. 33,8E,6B, 13.E8 
, BE , 0B , 03, A9 , IB, 8D , 3B . 06 , 80 . 3E , F 
F.58,60, 00.073B 



PROGRAM : *4 EX BASIC 2 



10 REM LIST1N62 
20 SCNCLR 
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30 URITEC2,1)"00 YDU OWN A PRINT 
ER :DO:GETPS:LOOPUNTILP$-"Y"OR 
PS-"N":PRINTPS 

40 URI TEC2. 3) "DO YOU OUN A DISKD 
RIUE "; :DO;GETDS:LOOPUNTILD$-"Y" 
aRDS-"N"rPRINTDS 

60 PRINT"CCLEARDCHAIN"«-CHR$C34) + 
"LISTINGS •'+CHRSC34)-'-", "; : IFD$-"Y 
"THENPRINT "B" : EL5EPRINT "1 
70 POKE1319,19:POKE1320,13:POKE2 
39, 2 : END 



PROGRAM : +4 EX BASIC 3 



10 GRAPHIC1 , 1 
20 REM LISTING3 

30 DEFFNHCX)-DEC( "2000" ) + INTC Y/B 

)*320*Y-INTCY/B)»B+INTCX/B)»B 

40 CHAR1 ,5,0, "GRAPHIC DEMO" 

50 CIRCLE1 , 1B0, 100, 10 

60 FORI-20TO70STEP2:C1RCLE1.160, 

100, I : NEXT 

70 PAINT1 , 171 , 100 

B0 X-0:Y-0 

90 F0RI-1T048 

100 READAS 

110 AS-RIGHTSCHTOBSCAS).B) 

1S0 FORT- 1T0LEN CAS) 

130 Q-UALCMIDSCAS.T.l)) 

140 P0KEFNHCX),PEEKCFNHCX))0R2-( 

B-TJ-D 

150 X-X-l 

160 NEXT 

170 IFX-24THENX-0: Y-Y+l 
1B0 NEXT 

190 IFPS-"Y"THENDUMP1 

800 GETKEYYS: GRAPHIC© 

210 OATAFF , FF , FF , FF , FF , FF , C0 , 00 , 

03^0,38,03,00.60,03,00.44,03.00 

.60. 03.00, 3B.03 

220 dataco, 00,03, df.ff.ff.c©, 00. 
03 , df , ff , ff , 00 , 00, 03, df , ff , ff . co 

,00,03,DF,FF,FF 

230 DATAC0,00,03,DF,FF,FF,C0,00, 
03, DF , FF , FF , CO , 00 . 03 . 00. 00 , 03 , FF 
, FF , FF , FF , FF , FF 

240 PRINT "C CLEAR] " ; : IFDS-"Y"THEN 
PRINT " OriERGE"*CHRSC 34 )+"LISTING4 
"•CHRSC 34 ) 

250 I FDS- "N "THENPR INT "MERGE " + CHR 

S C 34 ) » " L I ST I NG4 " »CHRS C 34 1 

260 P0KE1S34,ASCCPS):P0KE1535,AS 

CCDS) 

26S POKE131B,19:POKE1320.13:POKE 
1321 ,82: P0KE1322, 213: P0KE1323, 13 
270 PQKE239,5:END 



PROGRAM : +4 EX BASIC 4 



10 REM LIST ING4 
20 CGOTO30-10 
300 GRAPHIC©. 1 



310 URITEC14,0)"LO-RES DEflO" 
320 WRITE(14,l)"Cc UDCc UDCc UDC 
c UDCc UDCc UDCc UDCc UKc UDCc 

udcc ud- 

330 PRINT"Cc ADCc RDCc RDCc RDCc 

RKc RDCc RDCc PJLc RDCc RDCc R 
DCc RDCc RDCc RDCc RDCc RDCc RDC 
c RDCc RDCc RJCc RDCc RDCc RDCc 
RDCc RDCc RDCc RDCc RDCc RDCc RD 
Cc RDCc RDCc RDCc RDCc RDCc RDCc 

RDCc RDCc RDCc SD " 
340 PRINT"Cs BDCs BDCs BDCs BDCs 

BDCs BDCs BDCs BDCs BDCs BDCs B 
DCs BDCs BDCs BDCs BDCs BDCs BDC 
s BDCs BDCs BDCs BDCs BDCs BDCs 
BDCs BDCs BDCs BDCs BDCs BDCs BD 
Cs BDCs BDCs BDCs BDCs BDCs BDCs 

BDCs BDCs BDCs BD " 
350 PRINT"Cc QDCs +DCs +Us + DCs 
♦ DCs *DCs + DCs + DCs + DCs *DCs + 
DCs *DCs ♦DCs *DCs *DCs +DCs +DC 
s +DCs *DCs +DCs +DCs *DCs +DCs 
♦DCs +DCs *3Cs +DCs +DCs *DCs *D 
Cs +3Cs +3Cs +3Cs + 3Cs +DCs *DCs 

♦DCs + DCs + DCc UD" 
360 PRINT"Cc ZDCc EDCc EDCc EDCc 

EDCc EDCc EDCc EDCc EDCc EDCc E 
DCc EDCc EDCc EDCc EDCc EDCc EDC 
c EDCc EDCc EDCc EDCc EDCc EDCc 
EDCc EDCc EDCc EDCc EDCc EDCc ED 
Cc EDCc EDCc EDCc EDCc EDCc EDCc 

EDCc EDCc EDCc XD " 
370 PRINT: PRINT "QWERTYUIOPASDGFG 
HJKLZXCUBNMCs QDCs UDCs EDCs RDC 
s TDCs YDCs UDCs IDCs QDCs PDCs 
ADCs SDCs DDCs FDCs GDCs HDCs JD 
Cs KDCs LDCs ZDCs XDCs CDCs UDCs 

BDCs NDCs riDCc QDCc UDCc EDCc R 
DCc T3Cc YDCc UDCc IDCc ODCc PDC 
c ADCc SDCc DDCc FDCc GDCc HDCc 
JDCc KDCc LDCc 2DCc XDCc CDCc U3 
Cc BDCc NDCc MD" 
380 IFPEEKC 1534)-B9THEN0UMP© 
390 PRINTCHRSC 14) 
400 IFTY-1THEN415 : ELSETY-TY*! 
410 CGOTQ3-100 
415 CG0SUB91»5 
420 PRINTCHRSC142):SCNCLR 
430 PRINT"APPEND"CHRSC34)"LIST1N 
65"CHRSC34)", " ; : IFPEEKC 1535)-B9T 

HENPRINT"B" : ELSEPRINT"1 " 

440 PDKE1319. 19: POKE1320. 13: POKE 

1321 , 13: P0KE1322, 71 : P0KE1323 , 207 

:P0KE1324,S3 

44S P0KE1325.48: PDKE1326.48: POKE 
1327, 13:P0KE239,9 
450 END 

455 UOL8:FORT-0TO1023STEP10:SQUN 
Dl , T . 5 : S0UND2 . T , 5 : S0UND1 . 1023-T , 
5:SDUND2, 1023-T,5:NEXT 
460 RETURN 



PROGRAM: +4 EX BASIC 5 



500 REM LISTINGS 
510 CLR:SCNCLR 
520 PROCINPUT 
S30 PROCPR I NTC X , AS ) 
540 END 

550 DPROC INPUT 

560 INPUT-UALUE : - 1< -UALUE< -1 " -, 



570 INPUT-STRING TO BE EVALUATED 
";AS 

SB0 EPROC 

S90 OPROCPRINTC X , AS) 
G00 PRINT"ACS"X"-"ACSCX5 
610 PRINT"ASN"X"-"ASNCX) 
G20 PRINT"DEG"X"-"DEGCX> 
B30 PRINT"RAD"X"-"RADCX> 
640 PRI NT"EUAL "AS "EUALAS 
650 POP 

660 PRINT"DEEKC208)-"OEEKC20B) 

670 PRINT"BINS(8)-"BINSC8) 

680 IFPEEKC 1534 D-89THENPL I 5T-B0 

690 IFPEEKC1535)-B9THENDE-8:ELSE 

STOP 

700 LOAD"L ISTING6" , DE 



PROGRAM: +4 EX BASIC 6 



10 REM LISTINGS 
IS TRAP1000 
20 QPEN15, B , 15 

30 0PEN3 ,8,3, "flYRELF I LE , L , "+CHRS 
CBB) 

40 CRS-CHRSC 13) 

50 PR I NT " C CLEARD C RUS0N3 RC RUSOFF D 
EAD OR CRUSONDldCRUSOFFDRITE"; : DO 
: BETAS : LOOPUNT I LAS- "R "ORAS- "UT : P 
RINTAS 

60 IFA$-"U"THEN160 

70 CGOSUB36M0 
80 RE00RDH3, RE , 1 

90 CGOSUB40-10 

100 INPUTK3,NAS,SAS,CS$,ZPS 

110 GOSUB400 

120 REC0RDtt3 , RE , 1 

130 GOSUB400 

140 PRINTNAS: PRINTSAS: PRINTCSS: P 

R I NTZPS : GETKEYYS 

150 GQTD50 

160 GOSUB360 

170 INPUT "NAME " ; NAS 

1B0 IFLENCNAS)>30THEN170 

190 INPUT"STREET";SAS 

200 IFLEN(SAS)>30THEN190 

210 INPUT-CITY 8 STATE";CSS 

220 IFLENCCSS)>2STHEN210 

230 INPUT"ZIP CODE";ZPS 

240 IFLENCZPS)>10THEN230 

250 DAS-NAS*CRS*SAS*CRS*CSS*CRS< 

ZPS 

260 I FLENC DAS ) < 8BTHEN280 

270 PRINT-RECORD TO LONG":GOTO50 

280 REC0RDt(3,RE,l 

290 IFDS-S0THENPRINT*3,CHRSC255) 

:GOSU8400:GOTO280 

300 GOSUB400 

310 PR I NT*3 , DAS 

320 GOSUB400 

330 REC0RD*3,RE,1 

340 GOSUB400 

350 GOTO50 

360 INPUT"ENTER RECORD NUMBER" ; R 
E 

390 RETURN 

400 I FDS<20THENRETURN 

410 PRINT "ERROR "DSS: CL0SE3 : CLOSE 

15: END 

1000 CL0SE3:CL0SE1S:PRINT:PRINTE 
RRSCER) ,EL 
1010 END 
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As a word processor is defined its a simple means of 
entering, editing, printing, and storing text on a computer 
why are there so many of them? This article covers no 
less than twelve different word processors, each offering 

a variety of functions and options to cater for the 
incredible variety of uses these essential programmes are 

used for. 



i 



I you haveever written a Idler, memo, 
note or magazine article then you need 
a word processor and so you will no 
longer be buried in 'early drafts' and 
pools of correcting fluid. With a word 
processor you can type on the keyboard 
anything you would on a typewriter and 
then correct it. alter it. save it for later 
use and print it out. 

In this article (which 1 wrote using 
PaperClip) I have looked at twelve word 
processors and assembled their strengths 

• Ski Writer 



and weaknesses and included certain 
factors and features that may help you find 
the word processor that is best suited for 
your needs. (Table 2). 



EASY SCRIPT/Commodore 



Easy Script is probably one of the best 
known C64 word processors as it was 

• Master Wi.nl 



given away free with the 1541 disk drive. 

Although Easy Script contains facili- 
ties to create and edit documents, it uses 
a system of control commands that means 
that text on the screen isn't the same as 
it w ill appear on the paper. In fact the pro- 
gram includes a special function to show 
the document as it will actually appear. 
Since then the word processors have 
become friendlier which means you can 
get started without wading through a huge 
manual. 




t Oohn/Ji'lir) : 
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SKI WRITER/Mastertronic 



Mastertronic's imported Ski Wriicr in- 
cludes only the briefest of manuals (three 
pages of a minute leaflet) and consists of 
four main functions that arc assessed 
through a main menu. 

The Edit option allows you to type 
and edit your document and format it. 
using Easy Script style commands to set 
margins, page numbers, headers and text 
justification. The Preview mode inter- 
prets these commands and displays the 
text as it would appear on paper. Your 
document can then be saved, loaded or 
merged from disks with the file option 
that can also format blank disks before 
printing on any defined printer and paper 
type. 




nUC' 3C0OT~5LOOI 



his is Word Perfect . 
n the word processor 



Supersoft 's 
stakes . 
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equivalent of a 
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as Paper Cl ip, ge 
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MASTER WORD/Argus 
Press Software 



As pari of the I xrad 'N Go series of cheap 
and cheerful disk programs Master Word 
has the distinction of being the only word 
processor that is supplied with no instruc- 
tions at all! 

If this complete lack of document- 
ation hasn't put you off you'll find pages 
and pages of help screens to get you going 
as well as tiles of sample letters which 
include nine different business letters, 
nine letters home, five true love notes, 
two. 'the romance is' over and one. "it 
never really began' letter for the one you 
hate! 

• Cut &■ teste 



If you don't expect too much from 
Master Word you won't be disappointed. 

WORD PERFECT/Supersoft 



Word Perfect is an easy to use program 
but has its limitations including a 254 line 
limit to documents, This is just over four 
A4 pages and so limits its applications lo 
short notes, letters and memos. Longer 
articles such as this one just wouldn't be 
possible. 

If you stay within this limitation 
you'll be able to enter and edit text using 
simple commands that try to mimic a 
typewriter. You even hear a bell when 

• Honwuonf 



your'e hearing a carriage return although 
you can let the program automatically 
wordwrap to a new line. 



CUT & PASTE/Ariolasoft 
(Electronic Arts) 



Many word processors claim to be easy 
to use but this one actually is so much so. 
that you can load in a sample document, 
edit it. add in your own words of wisdom 
and save it without looking at the slim 
introduction manual! 

Some word processors include a 
command bar: Cut & Paste has two! At 
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ihc top of the screen you get a menu of 
files on disk and a( the bottom a duck- 
shix>t command bar to load and save these 
files and format blank disks. 

Once your're actually editing text, 
whether it's one of the supplied format- 
ted letters (to Mom asking for money!), 
resume or memos or all your own work, 
then cut and paste is the name of the 
game. Any word, sentence or block of 
text can be defined and cut from the 
document and then pasted in another part 
of it. 

This means you can move and copy 
text as well as restore deleted words that 
you really wanted (as long as you haven't 
cut anything else, or even cut a general 
introduction that can then be pasted onto 
a whole series of different documents. 

HOMEWORD/Green valley 

Homeword (also sold as Master Writer) 
is the only icon controlled word processor 
in this collection. It has a picture of a 
filing cabinet for its load, merge and save 
options as well as a printer, a page of text 
for move. copy, erase and find and replace 
edit options, a layout icon to set text 
justification and a disk to catalog and 
create files. 

Selecting any icon leads to another 
set of icons and so on until you find the 
option you need. As with Cut and Paste, 
(he manual is almost redundant as it's 
always clear through icons and screen 
prompts, what you're doing, how you got 
there and how to get out of it without 
losing all your work. 



To help you further a display, at the 
bottom of the text entry screen shows the 
current page, a bar illustrates the remain- 
ing memory and a bit pattern represen- 
tation of your page is shown. 

TEAM-MATE/Tri Micro 

Team-Mate is in fact the C64 version of 
the programmes supplied with Plus/4 and 
features an integrated package of a word 
processor, spreadsheet, database and 
graphics package (that produces bar and 
pie charts). 

The word processing part of the 
package is undoubtedly limited with each 
file restricted to only 99 lines. However, 
more than tine file can be linked together 
to form longer documents that can use the 
output from graphics and spreadsheet 
packages in its documents. It doesn't 
compare with the full word processors but 
is a useful addition to a package. 

TRI WORD/ 

Tri Word is part of the Triangle (word 
processor/spreadsheet and file handler 
package) and is less limited than its Team- 
Mate competitor with up to 4(K> lines in 
a file. However data cannot be mixed 
between the programmes, and files can t 
be linked together. However you shouldn't 
need to as the files should be big enough. 
One thing that remains a mystery is wh> 
Fl moves the page down and F7 moves 
it up? 



MINI OFFICE II/Database 

The Mini Office II word processor is 
probably the best word processor 
supplied in an integrated package. 

From a single menu you can edit and 
create your text, preview it. search and 
replace consistent spelling errors and load 
and save your work. Meanwhile a bar at 
the top of the screen keeps track of the 
various modes you are in, the time it has 
taken you to create the document and an 
extremely useful word count. In fact 
everything you'd expect from an ordinary 
word processor which you get with a 
spreadsheet, database, graphics package, 
label printer and communications 
package! 

GEOWRITE 2.0/First 
Analytical 

GeoWrite 2.0 is just part of the Writer's 
Workshop package that runs with the pull- 
down menus and pointers of the Mae like 
GEOS operating system. 

A version of gcoWrite was included 
w ith the GEOS master disk but this was 
little more than a text handler and has 
been replaced by a full word processor 
teaturing headers and footers, left, right 
and centre justification, plain, bold, italic, 
outline, subscript and superscript text as 
well as a choice of fonts in a variety of 
point sizes and the incredibly powerful 
text grabber. 

The text grabber can convert any 
C64 word processor document into 
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• tinmrilc 



get Write formal which can then be edited 
by geoWrite and improved by adding 
different fonts and geoPaint graphics. 



FAPERCLIP/Ariolasoft 
(Batteries Included) 



I used Paperclip to write this article 
because I found it the easiest machine to 
use. I needed a word processor that didn't 
have any complicated control codes, that 
you could accept, type directly onto the 
screen and could easily correct mistakes 
as you go. Also which had a spell checker 
to remove any spelling mistakes before 
being saved to disk, lor direct entry into 
a typesetting machine. 

I didn't want to be restricted to a 
small number of lines hut I needed to 
know how many words I had used. (The 
Spellchecker is only available in the 
special Paperclip with Spell Checker pack 
which is definitely worth the extra fiver.) 

The spell checker is the secret of 
Paperclip's success as it compares these 
words with its I5.(K)0 word dictionary and 
prompts you to alter any it can't find or 
understand. Therefore it can spot typing 
errors, spelling mistakes and words run 
together through" missed spaces, while 
giving you a report of the total number 
of words used and their average length. 

This time I didn't need any of its 
other features such as transferring text 
between different documents, sorting 
capabilities, editing data from databases 
and spreadsheets or the ability to create 
form letters. But I did use the special 
commands to construct the comparison 
table. (Table 2). 

Paperclip with the added spell 
checker is more expensive than the others 
but you do get more for your money, 
(ireat value and a must for journalists 
with deadlines! 
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SUPERSCRIPT/Precision 

I may pretcr Paperclip but there are others 
such as Your Commodores illustrious 
Editor who prefers Superscript to create 
his words of w isdom. 

Superscript is undoubtedly an in- 
credibly powerful word processor that's 
equal to Paperclip in the feature it offers 
including a spell-checker and mail-merge 
facility. 

If there's any difference then it's how 
the commands are accessed. In Paperclip 
these are through conversational two key 
commands, whereas Superscript employs 
a series of nested duckshoot menus. For 
example, selecting Document from the 
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• Superscript 

main menu leads to a sub-menu that 
includes options to load. save, directory 
and spell. Select spell and you're led to 
another menu and options to check 
spelling, view or print the user diction- 
ary and display a word count. 

Comparing Superscript and Paper- 
clip is like the comparison between a 
Ferrari and a Porsche. They are both 
equally impressive but different to drive. 

The following table compares the 
tested word processors with eight factors 
that are important to a buyer. The final 
two factors are an opinion of the pro- 
grammes themselves and their manuals, 
and take into account, friendliness and 
general ease of use. 





Easy- 


Ski 


Master 


Word 


Cut & 


Home- 




Script 


Writer 


Word 


Perfect 


Paste 


Word 


Headers 


Yes 


Yes 


No 


No 


Yes 


Yes 


Footers 


Yes 


No 


Yes 


No 


No 


Yes 


Line Spacing 


Yes 


Yes 


Yes 


No 


Yes 


Yes 


Search/Replace 


Yes 


No 


No 


No 


No 


Yes 


Help Function 


No 


No 


Yes 


No 


No 


No 


Spell Checker 


No 


No 


No 


No 


No 


No 


Word Count 


No 


No 


No 


No 


No 


No 


Price 




£4.99 




£19.94 






Program 


Fair 


Fair 


Good 


Fair 


Got »d 


Good 


Manual 


Poor 


Poor 


None 


Fair 


Good 


G<mx1 








Team 


Tri 


Mini 


Geo- 


Paper 


Super- 




Mate 


Word 


Office 


Write 2 


Clip 


script 


Headers 


No 


Yes 


Yes 


Yes 


Yes 


Yes 


Poolers 


No 


No 


Yes 


Yes 


Yes 


Yes 


Line Spacing 


Yes 


No 


Yes 


Yes 


Yes 


Yes 


Search/Replace 


Yes 


Yes 


No 


Yes 


Yes 


Yes 


Help Function 


No 


Yes 


No 


Yes 


No 


Yes 


Spell Checker 


No 


No 


No 


No 


No 


Yes 


Word Count 


No 


No 


Yes 


No 


Yes 


Yes 


Price 






£19.95 


07.50 


£44.95 


£39.95 


Program 


Fair 


Fair 


Good 


Good 


Great 


Great 


Manual 


Fair 


Fair 


Good 


Good 


Good 


Good 
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Everyman's 

Guide to 
Graphics 



Graphics are a fascinating application for the C64. In this 
comprehensive guide, we point the way to better 
understanding and use of this facility. 
By Allen Webb 



In my view, the crucial pari of any 
piece of software is the graphics. There 
are very few items which need no 
attention to graphics, with even a text 
only package being improved by a 
redesigned font. 

In this article. I want to give a 
detailed run down of the C64's 
graphics capability and how you can 
use it. Where it simplifies life. I will 
give listings of helpful routines 

Vic Chip 

First, let us consider the driving force 
behind graphics, the VIC-II chip. This 
chip controls the graphics system 
which can in turn be altered via a 
number of registers. These registers are 
memory mapped allowing you to 
change them easily. Table I lists the 
most useful registers. 

That's a pretty meaty lump of 
information and it's only provided as 
reference material. The rest of this 
piece will show you how the more 
important registers are used. 

If you want to use your 64 
efficiently, an appreciation of how it 
handles its memory is necessary. 
Figure 1 gives a simple memory map. 
lLie memory map can be considered to 
consist of two layers. The bottom layer 
is a block of 64K of RAM. On top of 



this are superimposed two areas of 
ROM and other chips. Since different 



devices occupy the same addresses, a 
register at address one is used to decide 



Table 1 



Register 

SDIHHKSDOIO 
(53248-53264) 
SD01I (53265) 



SD0I2 (53266) 
SDOI3-SDOI4 
(53267-53268) 
$1)016 (53270) 



SD0I7 (53271) 
SD0I8 (53272) 



S1XH9 (53273) 
SD01A (53274) 
SDOIB (53275L 
SDOIC (53276) 
$D 01 D (53277) 
SD01L (53278) 
SDOIF (53279) 
SD020 (53280) 
SD02 1 .SD024 

(53281-53284) 
.$D025-$D()26 

(53285-53286) 
SD027-SD02E 

(53287-53294) 



Bit 

7 
6 
5 
4 
3 

2-0 



4 
3 
2-0 



7-4 
3-1 



Function 
Sprite positions 



Raster Compare 
Extended colour mode 
Bit map mode 
Blank screen 
24/25 row text 
smooth scroll Y direction 
Raster Read/write 
Light Pen registers 

Multicolour mode 
38/40 column text 
Smooth scroll X direction 

Y expand register 

Memory Control Register 

screen matrix 

Character table 

Interrupt register 

IRQ mask register 

Sprite priority register 

Sprite colour mode register 

X expand register 

Sprite to sprite collision register 

Sprite to background collision register 

Screen border colour 

Background colour registers 

Sprite multicolour 
registers 

Sprite colour registers 
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SIMPLIFIED MEMORY MAP 



which are switched in. In normal use. 
the RAM under the ROMs is 
unavailable to Basic but it can be used 
for graphics. 

The 64 treats the block of RAM as 
lour banks of 16k: 
Bank()-$0000-$3FFF<0 to 16383). 
Bank l-$4000-S7FFF( 16384 to 32767) 
Ba n k 2-$8000-$ B F F F( 3 2 768 t o49 1 5 1 ) 
Bank3-$O)00-$FFFF<49152 to 65535 

Bank 0 is the default bank. The 
bank in use is specified in bits 0 and I 
of location SDDOO. 

The VIC can only address one- 
bank at a time and it expects to find an 
area of screen memory and a character 
set within the bank. This approach 
offers almost unlimited flexibility but 
also makes the use of graphics in the 
default bank restricted. 

Since the CPU and the VIC chip 
operate independently, the CPU 
doesn't care which bank is used for 
graphics. We can therefore reconfigure 
the machine from Basic very easily. 

Let us consider how to reconfigure 
the memory map. 

Changing the BANK 

This is achieved easily by changing the 
register at SDDOO: 

10 POKE 56578. PEEK(56578) OR 3 
20 POKE 56576. <PEEK(56576) AND 
252) OR(3-BN) 

Line 10 prepares the ground and 
line 20 switches in BANK number BN. 

The VIC chip ignores the absolute 
address of the bank and uses only the 
relative addresses within the bank. i.e. 
each bank ranges from $0000 to 
S3FFF. 

Moving the Character Set 

The register at 53272 tells the VIC chip 
where to get its character data. In fact, 
bits one to three hold this information. 
This information is changed by: 

POKH 53272. (PEEK(53272) 
AND240) OR X 

X is equal to the start adress of the 
character data divided by 1024. With 



only three bits used, only eight 
character sets are possible i.e. x = 
0.2.4.6.8.10.12.14. 

Since the machine powers up with a 
character set. there must be default 
information somewhere. In fact, the 
default character set is held in ROM. 
This data is imaged to banks 0 and 2 
and is found at the following 
addresses: 

$1000-$I7FF (Lower case set X=4) 
$1800-$! FFF (Upper case set X=6) 

Clearly, it is possible to have a 
number of different sets of characters 
in a bank and simply switch between 
them as needed. 

Moving the Screen 

The screen comprises of 1000 bytes of 
contiguous memory which usually 
resides between locations 1024 and 
2024. This position is specified in bytes 
4 to 7 in location 53272. These bytes 
actually specify the position of the 
screen in any bank of memory, and can 
be changed by: 

POKE 53272. (PEEK(53272) ANDI5) 
OR Y 

Y is equal to the start address of the 
screen divided by 64. This time we have 
four bits in the register allowing 16 
possible screen positions with Y 



ranging from 0 to 240 in increments of 
16. Unfortunately, you cannot use all 
RAM areas for the screen. If you use 
the areas imaged by the character 
ROM. you will get garbage on the 
screen. 

In addition to changing the VIC 
register, you must also tell the 
operating system where the screen is. 
This is done with: 

POKE 648.SCREEN/256 

where SCREEN is the start address of 
the screen area. 

The screen colour matrix cannot be 
moved and. in fact, presents no 
difficulties. 

Listing 1 allows you to reconfigure 
your 64. The first part asks you to 
specify where the screen and character 
set are to go. These values are checked 
to ensure that they are in the same 
bank and are not at the same address. 
It doesn't check any further so beware. 
Line 60 to 80 calculate the register 
values. Line 90 checks to sec if you 
need to copy down the character set 
and lines 100 to 150 do this job if 
required. Lines 160 to 190 reconfigure 
the machine. 

Listing I: Reconfigure 

56 10 PRINTCHRSC147): INPUT "SC 
REEN POSITirjN" ; SCREEN 

44 50 INPUT "CHARACTER SET ADDR 
ESS" ; CHARS 
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Pixel one 


Pixel two 


Colour Register 


clear 


clear 


53281 


clear 


set 


53282 


set 


clear 


53283 


set 


set 


colour matrix 



30 IF SCREEN - CHARS THEN ES 
-"ERROR. .CHARS AND SCREEN AT 
SAHE ADDRESS " : G0T060000 
Al 40 IF INT(SCPEEN/1B3B4?-1NTC 
CHARS/ 163B4 5THENS0 
50 ES-"ERROR. .CHAPS AND SCRE 
EN NOT IN SAHE BANK" : GOTQGOO 
00 

IB BO X-INTCSCREEN/163B4) 
SB 70 Y-CSCREEN-X-1G3841/B4 
35 SO 2-CCHARS-X*lG384)/1024 
El 90 IF Z<>4 AND Z<>6 THEN 
BE 100 PRINTCHRS(147)"C0PYING R 
OH CHARACTER SET... THIS WILL 
CSPC33TAKE A UHILE" 
F4 110 P0KE56334,PEEKCSG334)AND 

E54 

4F 1E0 POKE l.PEEKU) OND 2S1 
AE 130 FORI-0TO2O47:P0KECHARS'-I 

,PEEK(S3S4B'-I):NEXT 
FB 140 P0KE1 . PEEKC 1 )0R4 
03 150 P0KE5S334.PEEKC5G33430R1 

17 1G0 PDKE5G57B.PEEKC5G57B)0R3 

15 170 P0KESG57B. C PEEKC 5B57G JAN 

DB55J0RC3-X) 
3B 160 P0KES3a75,Y*X 
B3 190 P0KEG48,SCREEN/P56 
C3 800 PR INTCHRSf 147 ) "DONE" 
5E 210 END 

FD GOOOO PRINT: PRINTES 
9C 60010 GET IS: I F I S" " "THEN6001 
0 

3B 60020 GOT010 



In my view, the crucial pari of any 
piece. 

Run Listing I putting the screen at 
50176 and the character table at 51200 
and then enter the line: 

POKE 44.4: POKE 1024. 0: NEW 

You will have a machine offering 
39933 bytes for Basic and 144 sprites. 
That's a lot more than you get on 
switch on! This extra capacity is 
achieved by: 

1) Using BANK 3 and moving the 
screen and character set to a handy 
block of RAM between the ROMs. 

2) Moving the start of Basic program 



Listing 2 

10 DATA 60. 34. 34. 60. 34. 34. 60. 0 
20 ch-4: FOR 1=0T07: READ X 
30 POKE 512(MH-8*CH+l.X 
40 NEXT 



storge down to 1025. Since we've 
moved the screen we can use the 
normal screen area for Basic. 
3) You can use the memory behind the 
Kernal ROM (SE000 to SFFFF) and 
the remaining memory between the 
ROMs (SC000 to SC3FF) for sprites. 

Machine code users don't have 
such a tough time since they aren't 
constrained by where they have to put 
their programs. It is. nevertheless, 
useful to reconfigure the machine. 
Graphics Modes 

Before we launch forth into graphics 
handling, we must consider the 
graphics modes available to us. The 
screen occupies 1000 bytes and is 
divided into 64000 addressable points 
or pixels. There are two graphics 
modes allowing manipulation of the 
screen. 



1. Character Mode 

In this default mode, the screen uses 
1000 characters, each occupying an 
8XH pixel cell. 

2. Bit mapped Mode 

In this mode, the screen uses a 320 by 
200 array of pixels. Using this mode it 
is possible to create pictures and other 
images. 

The fundamental difference 
between these modes is that character 
mode is supported by the operating 
system whereas bit map mode has no 
software to drive it. Both modes use 
8X8 cells to control the colours used. 

In addition to the graphics modes, 
there are three colour modes. 
1. High resolution Mode 
This is the default graphics mode. In 



this mode, any given cell may contain 
only two colours; the background or 
paper colour and the foreground or 
ink colour. Any set pixel will have the 
ink colour and any unset pixel will 
have the paper colour. 

In character mode, the paper 
colour is held in VIC register 53281 
and the ink colour is held in the colour 
matrix. 

This mode allows the greatest 
detail, albeit at the most limited colour 
range. 

2. Multi-colour Mode 

In this mode, pairs of pixels are used to 
define dots of colour. Since there are 
four possible arrangements for two 
pixels, four colours arc allowed in any 
given character cell (Table 2). 

This mode is a lot coarser but 
allows greater colour flexibility. 

F.xtendcd Background 

This mode uses high resolution but 
offers four different paper colours in 
addition to the usual ink colours. The 
paper colour is determined by the 
POKE value of the character used and 
limits you to 64 different characters 
(Table 3). 

Redefined characters 

OK. we've done the spade work, let's 
now look al the use of user defined 
characters. 

You will have realised that the 
shape of characters is held in a table of 
data. Exactly how is of essence. 
Consider Figure 2. This shows a 
character design. The design 
comprises of eight lines of dots. 
Imagine that each set pixel is a 1 and 
each clear pixel isO. That being so. the 
top line becomes 001 1 1100. The 
decimal equivalent of this binary 
number is 60. Similarly, each line can 
be converted to a data value. The 
character table comprises of a 
sequence of data values for each 
character. The first eight data values in 



POKE CODE 


COLOUR REGISTER 


0-63 


53281 


64-127 


53282 


128-191 


53283 


192-255 


53284 
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the table is used by the character 
normally used by @. The second block 
of eight is used by the character A. And 
so on. For any given character CH. its 
data values start at: 

TABLK ADDRESS + CH*8 

As an experiment, run Listing I as 
before putting the character tabic at 
51200. Then type in and run Listing 2. 

Note what happens to the letter D. 

Using this approach is rather slow. 
Listing 3 gives a machine code 
alternative. 



This code lives at SSC000 allowing 
you to use a relocated screen and 
character set as earlier. The code has 
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two routines. The first copies the ROM 
characters to a specified address, 
rather like lines 1 10 to 150 but faster. 
You call the routine with the 
command: 



SYS 49152. ADDRESS 



, 0 , 133 , 254 . 1GS , 253 , 20B , 222 , 1 
65,254,205, 131 ,2900 
IB £100 DATA3.20B.515, 165, 1,9,4 
,133,1.102,51,173,14,550,9,1 
, 1579 

DB 5110 0ATA141 , 14,550, 173,0,55 
1.41 , 3, 1GB, 173,535,3,56,549, 
149,195,5035 
1C 5150 DAT A 1 4 1 , 232, 3 , 76, £32 , 3 , 
78 , 532 , 3 , 1 73 , 24 . 508 , 41 , 540 , 1 
3,532. 1333 
C7 2130 DATA3, 141 .54,508,96, 195 
, 12B. 64.0, 35,557, 195,35, 506, 
195, 169, 1905 
DO 5140 DAT AO .141, 537 , 3, 35 , 553 , 
174.35, 138, 173,32,247, 1B3, 17 
2,237,3,2057 
IF 51S0 DAI01GS, 50,145. 251. 200, 
538,237, 3., 195,8.508,535,96, 1 
73,538,3,5409 
BE 5160 DATA141,239,3,9B,35,5S3 
,174,32, 13B, 173,32,247,183,9 
G,G,2S1 ,509G 
4F 5170 DATA3B.555, 6,551,38,552 
, 6,551 ,38,255,54, 165,252, 109 
,233.3,5170 
E4 S1B0 DATA 133 , 252, 9G , 35, 19G , 1 
92, 1GS, 50, 133,251 , 169,0, 133, 
555,96,32,2155 
34 5190 DATA 144 , 97 , 32 , 1 34 , 97 , IE 
5,20, 133,251, 173,136,2,24, 10 
5,4, 133, 1650 



Where ADDRESS is the start of the 
character table. The routine also 
remembers where the character table is 
so always call it first in your program 
before trying to use the second routine. 

The second routine redesigns a 
specified character and has the form: 

SYS 49155XTI.B1.B2.B3.B4.B5.B6. 
B7.B8 

Where CH is the character number 
and Bl to B8 are the bytes defining the 
character. To redefine D as B as done 
earlier, the command is: 



SYS 49155.4,60.34.34.60.34,34,60,0 

For a bit of a laugh try this one: 

I0SYS 49152.51200 

20 FOR l=0TO999: POKE 

50176+L0:NEXT 

30 FOR I=0TO7: A<I)=RND(1)* 
256: NEXT 

40 SYS 49155. O.A(0>.A( I ),A(2).A(3). 
A(4),A(5).A(6).A(7) 

50 GOTO 20 

Listing 3 works equally well in 
multicolour and extended background 
modes. To turn on multicolour 
character mode you must use: 



POKE 53270. PEHK(53270>OR16 

To turn it off. use: 

POKE 53270, PEEK(53270)AND239 

To turn on extended background 
mode, you must use: 

POKE 53265, PEEK(53265)OR64 

To turn it off, use: 

POKE 53265. PEEK(53265)ANDI9 1 

Bit Mapped Mode 

This mode is a bit of a paradox. Whilst 
on one hand it offers the greatest scope 
for artistic creativity, it is also memory 
hungry. In essence, it uses two or three 
blocks of memory. 

1. The bit map 

This is an area of 64000 pixels arranged 
in 200 lines of 320. This occupies 8K of 
RAM. 

2. The colour array 

This holds the colour information and 
comprises of 1000 character cells. 

3. The color matrix 

Multicolour mode uses this area to 
hold one of the colours.- 

The concepts discussed earlier with 
respect to telling the VIC chip where 
the bit map lies also apply here. 
Register 53272 holds the details of the 
bit map area (bits 1 to 3) and the colour 
array (bits 4 to 7). In other words the 
bit map occupies the character set area 
and the colour array occupies the 
screen memory. 

To turn on the bit map, you must 
turn on bit 5 of register 53265: 

POKE 53265. PEEK(53265)OR32 

Register 53270 decides whether 
multicolour or high resolution modes 
is used: 

Multicolour on:POKE 53270. 

PEEK(53270>ORI6 

Multicolour off: POKE 53270. 

PEEK(53270)AND239 

So how do we select the colours? In 
high resolution mode, the colour array 



Listing 3 

77 2000 F0RL-0T015:CX-0: FORD-OT 

015:READA:CX-CX*A:PDKE49152* 

L* 1S«-D, A : NEXTD 
B2 5010 READA: I FAO CXTHEN'PPI NT " 

ERROR IN LINE";2040f CL*10? : S 

TOP 

OF 2020 NEXTL : END 

00 2040 DATA76, 6, 192,76, 153, 192 
.35, 136. 195. 169,516, 141, 131, 
3, 169,506,5155 
C4 5050 DATA141, 130, 3, 169.0, 133 
, 553, 173, 130,3, 133,554, 165,5 
0,133,551,5091 
B7 2060 DATA1G5.21 , 133,252, 141 , 
232,3. 141 .233,3, 173, 14,220,4 
1,254, 141 ,2157 
2C 2070 DATA14.250, 1GS. 1,41,251 
, 133, 1, 1G0.0, 177,253, 14S.251 
,16S,551,52SB 
AO 2080 DATAS4 , 10S, 1 , 133, 551 , IS 
5,252, 105,0. 133.252,24, 1GS, 2 
53, 105, 1 ,1969 
85 5090 DATA133.553. 165,254, 105 
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"3 F?, 11473 

BS 5350 0O7O3 . 173 , 1 38 , 3, 141 . 148 

,3, 173. 139, 3, 141 , 149,3, 173, 1 

47,3, 1540 
54 5360 D070141 , 150, 3, 173, 140,3 

,240,19,501, 1,540,85.501 ,e,e 

40, 33, 1813 
75 5370 0010159,1,35,50,194,169 

,1,35,50,194,96,153,0,35,60, 

194, 1463 

FE 5380 0010169,0,35,60,194,96, 
169,0,35,60, 194, 159, 1 ,35,60, 
194, 1465 

00 5390 001096,169,1,35,60,194, 

169,0,32,60.194,96,141,151,3 

,173, 1S71 
C6 2400 0010148.3,141,138,3,173 

, 149,3, 141 , 139.3,173,150,3,1 

41, 147, 1655 
F0 5410 DOT03.32.77, 193,32, 133, 

194,35,0, 193, 173, 147,3,160,0 

.174, 1546 
95 5450 D0T0151,3.540,6,32,166. 

194, 76, 109, 194, 35, 171, 194,35 

,0. 193, 1793 
B9 5430 001054,173,148,3,105,1, 

141 , 148, 3, 173, 149, 3, 105,0, 14 

1 , 149, 1466 
B6 2440 00T03,32,8, 193,96, 173, 1 

3B, 3,41 ,7, 141 , 146,3,56, 169,7 

. 1216 

8C 5450 0070237,146,3,141,146,3 

,24, 169, 1 , 174, 145, 3,240,4, 10 

,202, 1649 
OE 2460 0070208,555,141,147,3.9 

6, 17, 170. 145, 170,96,73,555,4 

9, 170, 14S.2137 
06 2470 DOT0170,96, 35, 15, 195, 14 

1, 136,3,76,88, 195, 173, 135,3, 

141,33,1650 
Fl 2480 0070208,173,135,3,141,1 

34,2. 168, 147,32,510,555, 173, 

133, 3, 10, 1958 
10 5490 007010,10,10,13,134,3,7 

6,79, 195. 191 ,0, 191.0, 191,0, 1 

91.1593 



holds this information. Each character 
cell value holds the paper colour in bits 
0 to 3 and the ink colour in bits 4 to 7. 

In multicolour, colours 1 and 2 are 
held in the colour array with colour I 
in bits 4 to 7 and colour 2 in bits 0 to 3. 
Colour 0 is held in register 53281 and 
colour 3 is held in the colour matrix. 
The colours are displayed by the bit 
combinations: 

Colour 0. . .0 0 
Colour 1. . .0 I 
Colour 2. ..I 0 
Colour 3... 1 1 

Since two pixels form a dot in 
multicolour mode, the horizontal 
resolution is limited to 160 points. 

Any given pixel in the bit map is 
turned on with the following 
equations: Assuming that the pixel 
coordinates are X and Y and the bit 
map starts at the address BASE. 

ROW = INT<Y/8> 

CHAR = INT(X/8) 

LINE = Y AND 7) 

BIT = 7-(X AND 7) 

BYTE = BASE + ROW *320 + 

CHAR*8 + LINE 

POKL BYTE, PEEK(BYTE) OR 
2 " BIT 

Using bit mapped mode from Basic 
is slow and over complex. Listing 4 
gives a machine code package for 
handling bit mapped mode. 



IEO 2090 □nif.137,3.32,133.195.35 
,21B, 192,173.2,221,9,3,141,5 
, 221 ,1711 
CE 2100 D070173,0.251,41,555,9, 
0. 141 .0,551, 173, 17,508,8,35, 
141 , 1638 

3E 2110 007017,508,169,151.141, 

24,208,173, 136,3.240,8, 173,2 

2,206,9,1860 
68 2120 D07016. 141. 22,208. 96,16 

9,220, 133, 169. 169,0. 133, 16B, 

32,0. 193, 1B69 
DO 2130 0070173,137,3,162.9,160 
, 157, 145, 158, 136, 16.551 .75.5 

4, 165, 168, 1915 
El 5140 D07O105, 15B, 133, 168. 169 

,0, 101, 169.133, 169.104,202,2 

09. 231,32. 8. 2060 
CI 21S0 D07O193, 96, 173,2,221,9, 

3.141,2,221,173,0,221,41,252 

,9, 17S7 

59 5160 00703.141,0,551,173,17, 
208 ,41, 253 ,141,17, 20B , 169 . 21 
, 141,24, 1748 
3F 2170 0070508,173,55.506,41,2 
39, 141,55.208,95. 169,224.133 
. 169, 169,0.2222 
70 2180 D070133. 168, 169,0, 152.6 
4, 160, 157, 145, 168, 136, 16,551 
, 75,54, 165, 1960 

02 2190 0070168,105,158,133,168 
, 169,0, 101. 169, 133,169,104,5 
02,208,231,96.2284 

50 2200 0070120, 16S, 1 ,41,249. 13 
3, 1 , 96. 165, 1 ,9,5, 133, 1 .88,96 
, 1305 

03 2210 D07035, 15, 192. 141, 138.3 
,140,139,3,35,15,192,141,147 
,3,35, 1359 

FD 5550 D07015, 192, 141,140, 3, 17 

3, 135,3,240,3,76,235, 193.32, 

77, 193, 1843 
50 5530 007035,133,194,35,0,193 

, 173, 147,3, 160,0, 174, 140, 3,5 
40,6, 1630 
55 5540 007035,166,194,76,73,19 

3.35, 171 , 194,32.8, 193,96, 173 

,147,3,1783 
03 2250 D07074,74,74,141,141,3, 

173, 139,3,74,173, 138,3, 106,7 

4 , 74 , 1464 
BB 2260 0070141,145,3,173,147.3 

,41 ,7, 141, 145,3, 173, 141, 3, 14 

1 , 143, 1547 
01 5570 00703,169,0,141,144,3,1 

65,6,35, 550 ,193, 505 , 508 , 550 , 

173, 144,5050 
27 5280 00703.133,171,173,143,3 

, 1 33 , 1 70 , 32 , 220 , 1 93 , 32 , 220 , 1 

93,54, 173,5016 
2B 2290 0070143.3,101,170,133,1 

70, 173, 144, 3, 101 , 171, 133, 171 

, 169,0, 141 , 1926 
82 2300 D070144.3, 173, 145,3, 141 

, 143,3, 35,220, 193 , 35 , 550 , 193 

,35,220, 1894 
90 2310 D070193.24, 173, 143,3,10 

1,170, 133, 170. 173,144,3, 101, 

171, 133, 171 ,5006 
4B 5350 D07054, 173, 145. 3, 101 , 17 

0, 133, 170. 169,0, 101 ,171, 133, 

171,24, 169, 1857 
E9 2330 OftTOO, 101, 170,133, 170, 1 

69,554, 101,171, 133,171,96,16 

9,0, 14, 144, 1566 
BC 5340 00703,14,143,3,109,144, 

3.141, 144,3.36, 14, 13B. 3, 46, 1 



This code starts at 49152 and has 
three routines. 

1. Activate bit map 

This clears the bit map. set up the 
colours and turns on bit map mode. It 
has two forms: 

High resolution mode: SYS 

49152.0.CI.C2. 

CI = paper colour. C2 = ink 
colour. 

Multicolour mode: SYS 49 1 52, 1, CO, 

CLC2.C3. 

CO = paper colour 

2. Return to text mode. 

This returns you to the normal text 
screen at its normal position. SYS 
49155. 

3. Draw point 

This draws the points at X.Y with the 
specified pen: SYS 49158.X.Y.PEN 
where: 

PEN = 0 draws the point in paper 



LI57ING 4 



EE 5000 FORL-07045:CX-0:FORD-07 

015: REODO;CX-CX+O:P0KE49155* 

L*16*D,0:NEX7D 
85 5010 REODO: I FOO CX7HENPR I N7 " 

ERROR IN LINE";S040+(L*10>:S 

70P 

OF 5050 NEX7L : END 

7E 2040 0OTO76, 56, 195, 75, 178,19 

5 , 76 , 16 , 193 . 76 , 17B , 194 , 32 , 55 

3, 174,32, 1964 
70 2050 0070138,173.32,247,183, 

165,20, 164,51 ,36, 35, IS, 132. 1 

41, 135,3, 1755 
FC 2060 007032,12.192,141,135,3 
.32,12,195,141,133.3,173,136 
,3,540,1577 
37 2070 007050,32,12.192,141,13 

4,3,32,15,195.141,135,3,173, 

136,3, 1361 
3C SOBO 0070540,3,76, 1B7. 194, 17 

3, 135,3, 10,10,10, 10, 13, 133,3 
, 341, 133G 
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colour, i.e. it erases the point. 
PEN= I draws the point in ink I. 
PEN = 2 draws the point in ink 2. 
PEN = 3 draws the point in ink 3. 

In high resolution mode. X must be in 
the range 0 to 319. In multicolour 
mode. X must be in the range 0 to 159. 
In either mode. Y must be in the range 

0 to 199. 

In order to keep the routine as 
short as possible. I have omitted any 
range checking of the co-ordinates. If 
you use values outside the allowed 
range, a crash may occur. 
4. Turn on bit map. 

Without clearing it: SYS 49161. 
MODE. MODE = 0. high resolution. 
MODE = I, multicolour. 

So that you don't loose any 
memory for Basic, the bit map is 
placed behind the Kcrnal ROM and 
interface chip. 

Listing 5 is a simple demonstration. 

1 LISTING 5 

AO 10 5A-12»4096 

B4 SO SYS SA, 1 , 15,11, 12.0 

B2 30 Xl-5: Y1-5:X2-30:Y2-30:PA- 

1 :G0SU81000 
B9 40 X1-10:Y1-10:X2-20:Y2-20:P 

A-2: GDSUB1000 
13 50 X1-27:Y1-1:X2-35:Y2-50:PA 

-3:GOSUB1000 
CB BO FOR X - 0 TO 50 
SH 70 SYS SA*B,X + 0,X.RNDC1)»4;:N 

EXT X 

FO 80 0-0-1 : IF0<10THENSO 
OA 90 END 

30 1000 FOR Y-Y1T0Y2 
79 1010 FOR X-X1T0X2 
4D 1020 SY5 SA*6,X,Y.PA 
45 1030 NEXT X,Y 
9A 1040 RETURN 



Sprites 

Sprites are probably the thing which 
makes games writer's lives simplest. 
To those of you who don't know, a 
spriate is a moveable block of 504 
pixels arranged in a block of 21 rowsof 
24. The design is stored in a similar 
way to characters in that each row can 
be represented by 3 bytes with the 
whole design occupying 63 bytes. 
These designs are stored as a sequence 
of blocks in any given bank. The 
address of any given sprite block is 
given by: 

ADDRESS = (BANK* 16384) + 
(BLOCK NO* 64) 



Specifying a sprite design 

The next step is to tell the VIC which 
pattern block is to be used. A 
maximum of eight sprites are possible 
and each has a pointer. These pointers 
are located above the screen memory 
and can be found by: 

POINTER ADDRESS = SCREEN 
ADI5RESS + 1014 + SPRITE NO 

where SPRITE NO is from 0 to 7 

A power up. the screen sits at 1024 
so the pointer for sprite 3 is at 
1024+ 1014+3 or 2043. To tell the VIC 
which pattern to use. you simply 
POKE the block number into the 
pointer, eg to set sprite I to pattern 43: 

POKE 2041. 43 

Turning on a Sprite 

Whether or not a sprite is visible is 
determined by VIC register 53269. 
Each bit of this register controls a 
sprite. To activate sprite SP use: 

POKE 53269. PEEK(53269) OR 
(2 "SP) 

To turn off sprite SN use: 

POKE 53269. PEEK(53269) AND 
255-2 "SP) 

Expanded Sprites 

Sprites can be expanded in both 
directions to give four possible sizes. 
These are controlled by two registers. 
To expand sprite SP in the X direction 

use: 

POKE 53277. PEEK(53277) OR 
(2 "SP) 

To reduce it again use: 

POKE 53277, PEEK<53277) AND 
(255-2 "SP) 

To expand sprite SP in the Y 
direction use: 

POKE 53271. PEEK(5327I) OR 
(2 "SP) 

To reduce it again use: 

POKE 53271. PEEK(5327I) AND 
(255-2 "SP) 



Colours 

Each sprite has a colour register. This 
is given by: 

REGISTER = 53287 + SPRITE NO 

This is used to specify the colour of 
high resolution sprites 

In multicolour sprites the colours 
are selected bv the usual bit pairs, sec 
Table 3. 

The eight bits in register 53276 control 
the colour mode. 

To set a sprite SP to multicolour 
mode use: 

POKE 53276. PEEK(53276) OR 
(2 'SP) 

To set sprite SP to high resolution 
mode use: 

POKE 53276. PEEK(53276) AND 
(255-2 "SP) 

Positioning a Sprite 

The positioning of any given sprite on 
the screen is defined by its X.Y co- 
ordinates. The X co-ordinate can 
range from 0 to 5 12 and Y co-ordinate 
from 0 to 256. Each sprite has a 
dedicated pair of registers. The first 
holds pari of the X position and 
the other holds the Y co-ordinates. 
They can be found from: 

X Register = 53248 + SN*2 

and the Y register is found from: 

Y Register = 53249 + SN*2 

The X position is defined in two 
parts: 

Most significant byte (msb) = 
INT(XPOS/256) 

Uast significant byte (Isb) = XPOS- 
msb*256 

Register 53264 holds [he msb 
details, one bit per sprite 

So to position a sprite you use: 

POKE XREG.LSB 
POKE YREG.Y 

If msb=I then POKE 53264. 
PEEK(53264) OR 2 'SP). 
If msb=0 then POKE 53264. 
PEEK(53264) AND (255-2 'SP). 
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Table 4. 

BIT PAIR 

II II 

0-1 

1 0 

I I 

Selecting Colour Mode 



Priorities 

Each sprite has a priority which 
decides whether it appears in front of or 
behind the characters on the screen. 
Register 53275 decides this, one bit per 
sprite 

To put sprite SP behind the 
characters use: 

POKE 53275, PEEK(53275) OR 
(2 "SP) 

To put sprite SP in front of the 
characters use: 

POKE 53275, PEEK(53275) AND 
(255-2 *SP) 

Thai's quite a mouthful and hardly 
conducive to simple programming. 
Listing 6 gives the ubiquitous machine 
code package. 



65 2000 FORL-OT030:CX"0:FORD-OT 
□IS : READA: CX-CX+A : P0KE49408* 
L-16+0, ArNEXTO 

82 eoio reada : ifaocxthenprint" 

ERROR IN LINE";2040*-CL*10):S 
TOP 

OF 2020 NEXTL: END 

Fl 2040 DATA7B, 194, 194.76, ie. 19 
3 , 76 , 66 . 193 , 76 , 341 . 193 . 35 , 14 

4, 194,38, 1992 
C3 3050 DATA 1 34 , 194 , 165 , 20 ,41,1 

,340, 13, 172,-133,3, 186.50, 193 

, 13, ai , 1S78 
fo 2060 DATA20B, 141 ,21 ,20B, 96, 1 

7a, 133,3. las.sa, i93,4S,ai,ao 

B, 141 , El , 1854 
AD E070 DATA208 ,36, 1,2,4,8,16,3 
2 , 64 , 12B , 254 . 253 , 251 , 247 , 239 
,233,2026 
C3 2080 DATA191,127,32,144,194, 
32, 134,194, 165,20, 164, ei, 141 
, 134, 3, 140, 1836 
3E 2090 DATA13S,3,3e, 134. 194, 16 
5,20, 141,136,3,173,133.3,24, 
10, 16B. 1474 
B3 2100 DATA173, 134,3, 153,0,208 
.173, 136.3,200.153.0,208.173 
,135,3, 1855 
Dl 2110 DATA240, 13, 172, 133,3. IB 
5 , 50 , 1 93. 1 3 , 1 6 , 208 . 141 , 16 . 20 
8,96, 172, 1BS9 
3B 2120 DATA133.3, IBS. 58, 193,45 



COLOUR SOURCE 
Screen colour 
Register 53285 
Colour register 
Register 532X6 



This code has four routines. 

Setup Sprite 

SYS 49408. SP.TYPEXOLOUR. 

XEXP.PRIORITY.(COLOURI. 

COLOUR2) 

where: SP sprite number (0 tO 7). 
TYPE-0=High resolution. 1= Multi- 
colour. 

COLOUR - High resolution colour. 
XEXP - 1= X direction. o=don't 
expand X direction. 
YEXP - l=expand Y direction. 
0=don"l expand y direction. 
PRIORITY- 1-behind background. 

0=in front of background. 
COLOUR! Multicolour 1. only 
needed if TYPE =1. 
COI.OUR2 - Multicolour 2. only 



, IB, SOB, 141, IB, SOB, 96, HI, 1,2 

40, 13, 1597 
F4 2130 DATA 1 72 , 133 ,3.1 B5 , 50 , 19 

3, 13,28,208, 141, 2B, 208, 96, 17 

2, 133, 3, 1766 
68 2140 DATA185.5B, 193,45. 2B , 2C 

B, 141 ,28.208,95,32, 134,194, 1 

65,20,41, 1776 
OB 2150 rjATAl,240,15,172,133,3. 

185,50, 193, 1-3,29,208, 141,29, 

20B.76.1696 ■ 
57 2160 DATA206. 193, 172, 133.3, 1 

85 , 5B , 193 , 45 . 29 , 208 , 14 1 . 29 , 2 

08,32.134,1969 
B8 2170 DAIP194, 165,20,41 , 1 .240 

, 13,172, 133,3, 185,50. 193, 13, 

23,209,1654 
IF 2180 DAIA141 ,23,208,96, 172, 1 

33, 3 , IBS, SB , 193 , 45 , 23, 208, 14 
1,23,208, 1860 
CA 2190 DATA96, 32, 144. 194.32, 13 
4, 194. 165,20, 133,251 . 173, 136 
,2,24, 105, 1835 
03 2200 DATA4, 133,254. 169,0. 133 
,253,56, 165,253,233.8, 133,25 
3, 165.254,2466 
Fl 2210 DATA233.0, 133,254, 172,1 
33.3,155.251, 145,253.96,192. 
128,64,0,2222 
85 2220 DATA32, 134, 194, 165,20,4 
1 , 1 .240, 13, 172, 133,3, 185,50. 
193,13,1589 
54 2230 DATA27.20B, 141,27,20B,9 
6. 172,133,3, IBS, SB, 193,45,27 



needed if TYPE* I. 



Switch on 

SYS 494li.SP.FLAG where: 

FLAG= I - turn on sprite SP. 
FLAG=0 - turn off sprite SP. 

Sprite position 

SYS 494I4.SP.X.Y where: 
SP - sprite number. 
X - X position. 
Y - Y position. 
Pattern 

SYS 49417.SP.DESIGN, BLOCK 

The routine is quite smart in that it 
sorts out which bank you are usingand 
where the sprite pointers are. I 
therefore recommend that you use the 
configuration used earlier (screen at 

50176 and characters at 51200. This 
allows you a block of 128 sprites from 
design block 128 to 255. 
In Summan 

In all. this has been a hefty slab of 
information and I must apologise for 
not giving more detail. If you want to 
really get into graphics you must invest 
in the Programmers Reference Guide 
or something similar. Having said that. 
I believe that the routines I've given 
will be useful tools. 



,20B, 141,1872 
60 2240 DATA27.208.96, 32, 159, 19 

4,169,0,141,142,3,32.95,194, 

172,142, 1805 
6C 2250 DATA3, 145, 253,200, 192,6 

4,240,6, 140, 142,3, 76,75, 194. 

96, 159. 1998 
15 2260 DATA25S, 141 . 14,212, 141 , 

15,212, 169, 128, 141 , 18,212. 16 

9, 12B, 141 ,24,2120 
A6 2270 DATA212, 173,27,212,96,3 

2, 134, 194, 165,20, 14 1,37, SOB, 

32, 134, 194,2011 
2D 2280 DATA165.20, 141 .38, 208,9 

6, 32.253. 174,32, 138, 173,32,2 

47, 183.95, 202B 
9B 2290 DATA32 , 134 , 194 , 16S, 20, 2 

01 ,8, 144,2, 169,7, 141 , 133,3,9 

6,32, 1481 
BD 2300 DAT A 134 , 194 , 155 , 20 . 133 , 

253, 169,0, 133,254. 162,6,6,25 

3, 3B, 254, 2174 
5D 2310 DATA202, 208,249, 173,0,2 

21,41,3,168,185,28,194,24,10 

1,254. 133. 21B4 
09 2320 DATA254,96,32, 144, 194,3 

2, 134, 194, 165,20,141 , 141,3,3 

S, 140, 193. 1915 
7F 2330 DATA32,134,194,16S,20,1 

72. 133,3. 1S3, 39,208, 32. 170.1 

93,32.32, 1712 
52 2340 DATA 194 , 1 73 ,141,3. 240, 3 
, 32, 117, 191.96, 133, 3.96.32,2 

28.255, 1940 
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C64 UTILITY 



Swapper 
64 



Use part of your C64's memory as a RAM disk for 
storing Basic programs. 



s 



wappcr 64 is a utility which allows 
a Basic program resident in memory to 
be stored in RAM for recall later, rather 
like a RAM— disk. Commands are 
available for storing and recalling a 
program. Swapping the program in Basic 
memory for that in storage, and storing 
part of a program (linenumbcr to 
linenumber). 

The program can be used either in 
direct mode or in program mode, the 
latter being especially useful for utilising 
two programs held concurrently in 
memory - one in basic memory and one 
in storage. These can be rapidly 
interchanged when desired via the swap 
command. 

Using the program 

Upon initialising the program, the top of 
Basic memory is lowered to prevent a 
program overwriting the storage area. auto-run 
This leaves the user with 19K of Basic 
RAM which should be enough for most 
programs. 

Swapper 64 has five commands which arc 
activated by the syntax: 

SYS 49152 .command number 
(l-5).condition I. condition 2 

The commands are as follows: 

1 - Initialise 



SYS 49152,1 

This lowers the top of Basic memory to 
$54(K> to prevent overwriting the storage 
area. This should always be the first 
command executed when Swapper 64 is 
to be used. 

2 - Store 

SYS 49152.2 

This command stores the resident Basic 
program into memory, this can be 
recalled using command three or swapped 
with another program using command 
four. 

3 - Recall 

SYS 49152.3 - recall program 
SYS 49152.3.1 - recall program and 



4 - Swap 



This function recalls a program in 
storage, overwriting any program 
currently in basic memory. If a one is 
added to the SYS statement, the recalled 
program will auto-RUN. Make sure that 
there is a program in storage before you 
call this command. 

Once recalled the storage area is 
NOT cleared. This means that a program 
can be recalled more than once if 
accidcnily NEWcd. 



SYS 49152.4 - swap Basic program with 
stored program 

SYS 49152.4.1 swap Basic program with 
stored program and auto-run. 

Using this command swaps the program 
in basic memory w ith a program stored 
in RAM. As in command three, if a one 
is added to (he SYS instruction, the 
recalled program will auto-run. Again, 
ensure that there is a program in stored 
memory before calling this instruction. 



5 - Store part of a program 

SYS 49152. beginning line, end line. 

This stores only the part of the program 
specified by the beginning line and end 
line numbers stated in the SYS statement. 
This commands main use is for w hen two 
programs are to be set up in memory to 
utilise the swap command. The 
programer can skip the initial lines of the 
first program stored ( these are the lines 
that LOAD in the next part) so that they 
are not re-run every time this program 
is re-called from memory. 
For example the first program LOAded 
would have initial lines something like 
those in Figure I. The lines have the 
following function: 
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C64 UTILITY 



10 If swapper has been LQADed then skip 
lines 20 and 30 

20 Set A to show that SWAPPER will 
have been LOADed 

30 LOAD SWAPPER into memory 
40 Initialise memory 

50 SAVE the part of PROGI that is 
wanted 

60 IX)AD next program 



10 


IF A=l THEN 40 


Figure 1 


20 


A=l 




30 


LOAD "SWAPPER64'M (or %8 P 


for d i sk) ,1 


40 


SYS 49152, 1 




zo 


SYS 49152.- 5. 70* end line of 


p pogram 


60 


LOAD "PR062'M (or ',8* for 


disk) 


70 


REM *START OF PROGRAM 1* 





PROGRAM: SWAPPER LDR 



19 10 BL-50:LN-70:SA-49152 
F9 20 FOR L-0 TO BL:CX-0:FOR D- 
0 TO 15 

9F 30 READ A: IF A>255THENPR1NT' , 
NUMBER TO LARGE" ; LN+ 1L* 10) :S 
TOP 

28 40 CX-CX+A:POKE SA'L* 16+D , A : 
NEXT D 

A9 50 READ A: IF AXCX THENPRINT 
"ERROR IN LINE";LN+(L*10) :ST 
OP 

4C 60 NEXT L:END 

Fl 70 DATA 32.253.174,32,138.17 

3,32.247, 183, 165,21,208,44, 1 

65.20,240,2127 
64 80 DATA 40.201,6.176,36.201. 

1 . 240 , 23 . 201 . 2 , 240 , 13 , 201 . 3 . 

240.1824 
64 90 DATA 12,201.4.240.14,201. 

5 , 240 . 1 3 . 0 . 76 , 62 . 19 2 , 76 . 87 , 1 

92,1615 

C4 100 DATA 76,71,193,76.80,193 

,76.228, 193. 162, 11 .76,55, 164 

.32.118,1804 
CO 110 DATA 192.160.0.177.251,1 

45.253.76,145.192.162,0,181. 

43.157.59.2193 
A4 120 DATA 195.232.224.14.208. 

246,96.32.20.193.32.105.192. 

32.118.192.2131 
A6 130 DATA 160.0.177,253.145.2 

51.76.180.192.162.0.189.59.1 

95.149.43,2231 
52 140 DATA 232.224.14,208.246. 

96 , 169 . 0 . 133 . 251 , 169 . 8 . 1 33 . 2 

52.165,45.2345 
Al 150 DATA 141,39,195.165,46,1 

41,40,195.169,0,133,253,169. 

84.133.254,2157 
AB 160 DATA 96,230,251.208,2.23 

0.252.230,253.208.2.230.254. 

165.252.205.3068 
B3 170 DATA 40.195.240.3.76.67. 

192. 165.251,205 .39. 195 .240,3 

,76.67,2054 
5B 180 DATA 192.76,74.192,230,2 

51 , 208 , 2 . 230 . 252 . 230 . 253 . 208 

,2.230.254,2884 
37 190 DATA 165.252.205.40.195. 

240.3.76.98,192.165,251,205. 

39.195.240.2561 
2F 200 DATA 3.76.98.192.165.43. 



133.251.165.44. 133.252.32.22 

.195,160.1964 
OB 210 DATA 0.169.0.145,251.76. 

59 , 193 , 230 . 251 . 208 , 2 . 230 , 252 

.230,253.2549 
BC 220 DATA 208.2.230.254,165.2 

52,201.84.240.3,76,137,193.3 

2,102.193.2372 
El 230 DATA 165.43.133.251.165. 

44.133.252,32,22,195.160.0.1 

69.0.145.1909 

22 240 DATA 251.76.59.193.169,4 
4 , 160 . 0 , 209 . 1 22 , 240 . 6 , 169 . 0 , 
141.37,1876 

FA 250 DATA 195.96.32.253,174.3 

2.138.173.32.247.183.165.21. 

208,237.165.2351 
Dl 260 DATA 20.201.1.208.231.16 

9.1.141.37.195.96.173,37. 195 

.208. 1 . 1914 

23 270 DATA 96.32.89.166,76.174 
,167,169.255.133.55.169.83.1 
33.56.96.1949 

FA 280 DATA 32.20.193.169.0.133 

. 25 1 . 169 . 8 . 1 33 . 252 . 169 , 0 . 133 

,253,169,2084 
8F 290 DATA 84.133.254.76.126,1 

93, 162 . 0 . 181 . 43, 141 .41 , 195 . 1 

89.59.195.2072 
B6 300 DATA 149.43.173.41.195.1 

57.59.195,232.224.14.208.235 

,96. 160.0,2181 
68 310 DATA 140.35.195.140.34.1 

95. 140,36, 195. 177.251 . 141 .41 

. 195. 177.253.2345 
Bl 320 DATA 145.251.201.0,208.1 

1.173.34. 195.208.6.238,35,19 

5,76. 164.2140 
04 330 DATA 193.140.35.195.173. 

41 . 195 . 145 . 253, 173 . 35 , 195 , 20 

1,3.240.21.2238 
48 340 DATA 165.252,197.46,208. 

12. 165.251 . 197.45.208.6.76, 2 

15,193,76.2312 
OD 350 DATA 253.192.76,232,192. 

169 , 1 . 141 , 34 . 195 . 238. 36 . 195 . 

173.36.195.2358 
96 360 DATA 201.2.240.235.76,17 

6.193.238,36.195, 173.36,195. 

201.2.240.2439 
53 370 DATA 222.76.194.193.32.2 

53 . 174 . 32 . 138 . 173 . 32 . 247 . 183 

,165,20,141,2275 
31 380 DATA 42.195,165,21.141.4 

3,195,32.253. 174.32, 138. 173. 

32.247. 183.2066 



98 390 DATA 165,20,141,44.195,1 

65 , 21 . 141 . 45 . 195 . 173 . 43 . 195 . 

205.45.195.1988 
DD 400 DATA 240.25.176.34,165,4 

3.133.251.165.44.133,252.162 

,0.181.43,2047 
E5 410 DATA 157,50,195,232,224. 

5 , 208 , 246 . 76 . 57 . 194 . 173 , 42 . 1 

95.205.44.2303 
17 420 DATA 195.176,3,76.20.194 

.76,57. 192.173.42,195, 141 .48 

,195.173.1956 
04 430 DATA 43.195.141.49.195.3 

2.217.194.32.22. 195.32.22.19 

5.32.22.1618 
IF 440 DATA 195,165,251.141,38, 

195,165.252.141,39,195,173.4 

6.195,133.251.2575 
59 450 DATA 173.47.195.133,252. 

173.44.195.141.48.195.173.45 

.195.141.49.2199 
E3 460 DATA 195.32.217.194.173. 

46 . 195 . 1 33 . 25 1 . 173 , 47 , 195 . 13 

3.252,165.251.2652 
BD 470 DATA 141.55.195.165,252. 

141.56.195.177,251.141.57.19 

5,169,0,145,2335 
9A 480 DATA 251,32.15.195.177.2 

51, 141,58. 195, 169.0.145.251, 

32.15.195.2122 
26 490 DATA 173,38.195,133.43.1 

73 . 39 , 195 . 133 , 44 . 165 . 25 1 . 133 

,45.165,252.2177 
8A 500 DATA 133.46.32.62.192,16 

2.0. 189,50, 195 , 149 .43, 232 . 22 

4.5.208,1922 
C4 510 DATA 246.173.55.195,133. 

251.173.56. 195,133.252.160,0 

.173.57.195,2447 
6E 520 DATA 145.251.200.173.58. 

195. 145.251 .96. 160.0, 177.251 

,141,46.195.2484 
74 530 DATA 32.15.195.177.251.2 

40.24, 141,47.195.32,15. 195.1 

77,251.205.2192 
El 540 DATA 48.195.208.14.32.15 

. 195 . 177 . 25 1 . 205 , 49 , 195 . 208 . 

4.96.76, 1968 
BE 550 DATA 57.192.173.46.195.1 

33,251,173,47,195.133.252,76 

.219.194.230.2566 
B5 560 DATA 251,208.2.230.252,9 

6. 166. 251,202, 134 , 251 . 224, 25 

5.206,2,198.2930 
56 570 DATA 252.96,0.0.0.0.0.0. 

0.0.0,0,0.0.0.0.348 



YOUR COMMODORK SERIOUS USERS GUIDE 

12 



Continued on page 88 



C128 UTILITY 



128 Disk Utility 



Create auto hoot disks and much more with this powerful utility. 



H 



ow many limes have you wanted to 
load a program from the directory and 
been frustrated to see the SYNTAX 
ERROR message appear when you press 
RETURN? The reason for this is that the 
letters PRG still existed on the command 
line when you pressed the RETURN key. 
It is very annoying and is the main reason 
that I decided to write the C128 Disk 
Utility. 

If you wish to LOAD a program 
directly from the directory listing you 
must either remove the three characters 
(usually PRG) representing the filetype. 
from the line or you could place a colon 
before them before pressing return. In 
effect your command line would look like 
this. 

DLOAD "program name" : PRG 

This is a valid command.This program 
will modify any file you wish, to enable 
you to simply type DLOAD before the file 
name in the directory listing. It does this 
by modifying the disk directory and 
placing a colon outside the quotes but 
before the filetype flag so that each 
directory entry will look like the above. 

C128 Disk Utility has many other 
functions as well but the put colon after 
filename feature is probably the most 
useful. It is well worth the trouble of 
obtaining a copy of C128 Disk Utility 
simply to have it available. 

Other Options 

128 Disk Utility also offers the user the 
following functions: 

RENAME FILES 

INITIALIZE THE DISK DRIVE 

DISPLAY DIRECTORY OF DISK 

MAKE A BOOT DISK 

PRINT DIRECTORY IN DETAIL 

DELETE FILES ON DISK 

1541/1571 FORMAT A DISK 

CLEAN UP A DISK 

LOCK A FILE AGAINST SCRATCH 



UNLOCK THE FILE AGAIN 
PERFORM A QUICK SCAN AND 
DELETE 

RECOVER A SCRATCHED FILE 
QUIT THE PROGRAM 
CHANGE SCREEN COLOURS 

As you can sec, CI28 Disk Utility is a 
very valuable addition to your program 
library. 

Each function of the program is 
described below. 

RUNNING THE PROGRAM. 

C128 Disk Utility is written completely 
in Basic V7.0, so it is simply LOADed. 
SAVEed and RUN as any other Basic 
program. There will be a short delay 
while the program initialises variables 
and strings. 

RENAMING FILES. 

This is selected from the main menu as 
are the rest of the functions available. 

To select from the menu, move the 
pointer at the right of the menu block up 
and down using the cursor up/down keys, 
until it points to the function that you 
want. 

After you make your selection press 
RETURN to indicate to the computer that 
you want to accept the function the arrow 
is pointing to. 

Selecting RENAME FILES will gain 
entry to a sub-menu. This menu works 
in exactly the same way as the main 
menu. You may select from PLACE 
COLON AFTER FILENAME, 
RENAME FILES, or GO TO MAIN 
MENU. Couldn't be simpler right?. 
Should you select the PLACE COLON 
AFTER FILENAME option you will be 
asked if you want to perform the 
operation on all the files on the disk or 
by selection from the directory. Select the 
former and the machine will carry out its 
operation on all the files providing there 
is sufficient room after the filename for 



the necessary change to the directory. 

Any errors will be reported and the 
program always defaults back to the main 
menu after an error occurs. 

If you elect to choose files to be 
altered there will be a short delay while 
the program memorizes the directory and 
you will then be offered the files on the 
disk one after another and asked if you 
wish to alter them. You will be able to 
select one of three possible replies to the 
prompt, these are "Y" for yes, "N" for 
no, or "C" for cancel everything and go 
back to the menu. This holds true for 
virtually all modes in C128 Disk Utility. 

INITIALIZE DRIVE 

This will clear the error channel on the 
drive and perform a dclear. 

DISPLAY DIRECTORY 

Selecting this mode will print the 
directory on the screen. You may slow the 
display down by pressing the COMMO- 
DORE key, or pause the display by 
pressing the NO scroll key. Follow the 
prompt on the screen to return to the main 
menu. 

MAKE A BOOT DISK 

As the name suggests, this allows you to 
make a disk which is BOOTable on the 
C128 computer. A BOOTable disk is one 
which will load a nominated program, 
either by pressing the reset button, 
entering the command BOOT (RE- 
TURN), or switching the computer on 
with the disk in the drive. Your CI28 
manual will explain this further. To create 
a BOOT disk with C128 Disk Utility you 
should follow the procedure below. 

Select the disk you wish to BOOT. 
It may have been used before or not. If not 
it will have to be formatted first. This is 
therefore the first question you will be 
asked, FORMAT DISK? (Y/N). Select 



> 
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the appropriate answer. See the part of 
this article pertaining to formatting disks 
for information about this. 

You now should have formatted in the 
drive either with or without any programs 
on it. C128 Disk Utility will now perform 
a check of track one to ensure that there 
is no chance of writing over any data on 
the disk. The program will report if it is 
safe to proceed, at the same time asking 
for your assurance that you want to 
continue. If you reply NO there will be 
no harm done to the disk and you will be 
returned to the main menu, however, if 
you wish to continue you will be asked 
for the name of the program to be 
BOOTed. Upon answering this question 
you are asked if the program is a Basic 
program if you reply NO then the boot 
will be a non- relocatable boot, otherwise 
the boot will be for a Basic program. 

The BOOT sector will now be 
written to the disk and you may SAVE the 
program you wish to boot, if it is not 
already there. 

When you wish to LOAD and RUN 
the program simply BOOT the disk (see 
your Commodore manual for more 
details) and it will come up RUNning. 

PRINT DIRECTORY 

This function prints out a detailed 
directory onto the printer or the screen. 
To nominate the screen, switch the printer 
off and the program will default to the 
screen. 

Only one question needs to be 
answered in this mode and that is whether 
or not to show files in the directory which 
have been scratched. This can be handy 
if you are looking for a deleted file on a 
disk which you may be able to recover 
using CI28 Disk Utility 

The printout of the directory will 
show the following information: 

DISK NAME 
DISK ID 

DISK FORMAT (usually 2A) 
FILETYPE OF PROGRAM 
TRACK WHERE IT LIVES 
SECTOR ON THAT TRACK 
FILENAME OF PROGRAM 
NUMBER OF BLOCKS USED 
START LOCATION IN C128 
BLOCKS FREE ON DISK 



DELETE FILES 

This mode works exactly the same as 
RENAME except it deletes the file rather 
than renaming it. You are still given the 
option of which programs to scratch from 
the disk. If you make a mistake don't 
panic CI28 Disk Utility can recover the 
program, so read on. 

FORMAT A DISK 

Any disk to be used on a Commodore 
C128 must first be formatted. Most of you 
will have learned this already, but if not 
please refer to the manual which came 
with your computer for details. 

This section of the program allows 
you to format a disk without the need to 
know the necessary syntax. All you have 
to know is whether you want the disk in 
1571 double sided format or 1541 single 
sided format, and what name you would 
like to give the disk. 

CI28 Disk Utility takes care of things 
from now on. If you wish you can even 
forget about the disk name and ID as the 
program will give the disk one for you. 
Any errors occurring during the 
preparation of the new disk will be 
reported, and eventually you will be 
passed back to the main menu. 

If you elect not to give a name and 
ID for the disk and the disk has been used 
before, the program will do a fast 
directory clear out on the disk, which 
only takes a few seconds. Please note that 
you cannot recover any programs from 
the disk with CI28 Disk Utility once a 
format has been carried out, so be 
careful. 

COLLECT 

Collect is the same as the COLLECT 
command in Basic V7.0. Disks in use 
should be COLLECTed periodically to 
ensure that they have a valid BAM (Bloek 
Allocation Map) and that they are using 
up disk space efficiently. A COLLECT 
should always be done after you recover 
any scratched file using this program. 

LOCK/UNLOCK A FILE 

It is not commonly known that it is 



possible to put a security lock flag on a 
file to prevent that file from inadvertantly 
being scratched. This function does just 
that. When you select this part of the 
program, you will be passed to the 
FILETYPE EDITOR part of C128 Disk 
Utility. Simply follow the prompts on the 
screen and you won't go wrong. 

If you elect to place a lock on a 
program, it will appear in the directory 
as a'C symbol beside the filetype. 

By selecting unlock (simply press U 
when you are offered the program you 
wish to unlock) you can remove the lock. 

QUICK DELETE/RECOVER 
FILES 

Once a program or file has been scratched 
from the disk it is still possible to recover 
it providing the area on the disk which 
the program occupies has not been over 
written by a subsequent write to the disk. 
If it is at all possible to recover the file 
this feature of CI28 Disk Utility will do 
it. Select R when the program you wish 
to recover appears on the screen. 

You will now be asked which type of 
file to recover, and your options are: 

0= DELETED (not normally used) 
^SEQUENTIAL (usually text) 
2= PROGRAM (normally this one) 
3=USER (special user design) 
4=RELATIVE (usually a database) 

Select the number corresponding to the 
filetype you require and the program will 
be recovered as that type of file. It is 
always wise to carry out a COLLECT of 
the disk after this is done. 

Quick Delete is a much faster way to 
delete a selected file than the previous 
Delete function. This is because it doesn't 
have to read the whole directory before 
it commences, it also does not clean up 
the BAM after it is finished. 

Should you press the return key at the 
prompt in the Filetype Editor then no 
change will occur on the disk and you will 
be offered the next file in the directory. 

QUIT 

Quit docs just that. It restores the default 
Commodore colours and returns control 
to BASIC. 
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CHANGE COLOURS 

This has been added to the program just 
in case you don't like my colour selection. 
Enter a number between one and sixteen 
and you will be asked if it is correct. 
Answer YES or NO and press RETURN. 
If you selected yes the colour will be 
transfcred to the screen and you will then 
be asked to select a new border and then 
a new character colour. 

If you answer NO when asked if your 
selection is correct you will be asked 
again to enter a new colour. 

I hope you find the CI28 Disk Utility 
useful in maintaining your disk files. 



PROGRAM: 12B DISK UTIL 



1 REM 



2 REfl • 

SK UTILITY PROGRAM 



DI 



3 REM • 



4 REM 



BY 



5 REM * 

K. R. SHARKEY 



G REM -■ 



TD USE SIMPLY RUN THI 
IT WILL GIUE THE DPT 



7 REM • 
S PROGRAM 
ION OF 

B REM • EITHER CONCERTING ALL 
FILES ON DISK OR SELECTING CERT 
AIN FILES 

9 REM • THE FILES WILL THEN BE 
RENAMED TO ALLOW DLOAD TO BE US 

ED IN • 

10 REM - FRONT OF THEIR NAME 0 
N THE DIRECTORY LISTING WITHOUT 
THE - 

11 REM • ANNOYANCE OF HAUING T 
0 INSERT A COLON AFTER THE FILE 
NAME OR • 

15 REM * CLEARING OUT THE REST 
OF THE LINE ON THE SCREEN . 

13 REM • 



14 REM • A BOOT DISK CAN BE CRE 
ATED BY SIMPLY SELECTING ' MAKE B 
00T DI SK- 
IS REM • ON THE MENU AND THEN A 



NSUERING THE PROMPTED QUESTIONS. 
IB REM • 



17 REM • PROGRAMS CAN BE RENAME 
D OR DELETED ON THE DISK IN THE 
DRIUE BY • 

IB REM * SELECTING THE CORRECT 
COMMAND FROM THE MENU & ANSWERIN 
G THE PROMPTS.* 

19 REM • 

• 

50 REM • LOCK/UNLOCK WILL ALLOW 
YOU TO LOCK A FILE SO THAT IT C 
ANNOT BE • 

ai REM • SCRATCHED OR UNLOCK IT 
AGAIN AT WILL. RESTORE RECOUERS 
SCRATCHED 

52 REM - FILES. NOTE: IT IS WIS 

E TO UAL I DATE THE BAM AFTER UNSC 

RATCHING. • 

23 REM • 



54 REM • SELECT 'PRINT DIRECTOR 
Y' AND A DETAILED DIRECTORY WILL 

BE LISTED ON • 
B5 REM - THE PRINTER. 'COLLECT 1 

WILL CLEAN UP THE BAM ON THE DI 
SK. - 
26 REM — 

57 COLOR RGRC 0 ) , 1 : CQL0R4 . 1 : COLOR 

S, 15: IFRGR<0)-STHENPRINTCHRSC27) 

; "R" 

26 CLR:DIMSSC1S),NAS(120),NES(12 
0) : BE$-CHRS(7)»CHRSC15) 
39 TYSC 0 )- "DELETED " : TYSC 1 )-"S 
EOUENT I AL " : T YS C 2 ) - "PROGRAM " ; T 

YSC3)-"USER ":TYSC4)-"RELAT 
IUE ■ 

30 TRAPaSa: REM ROUTINE TO HANDLE 
ERRORS 

31 : 

3a REM — . DISPLAY MENU •••• 

33 : 

34 SCNCLR:FAST:GS-1:YU-15:REST0R 
E366.IF MIDSCSSC45.10.1 )-"R"THE 
N3S: ELSEGQSUB298 

35 IFRGR(0)-5THENUINDOW0 0 79 24 
:ELSEWINDOW0,0.39,24 

36 SLOW:SCNCLR:CHAR1.S ( 0, " M 
AIN MENU '\lrG0SUB37:G0T041 

37 F0RXT-4T0YU:CHAR1 ,0.XT,SS<XT) 
,1:NEXT 

38 CHAR1 ,1,17, "USE CRSR U/D TO S 
ELECT" 

39 CHAR1 ,1,19, "PRESS RETURN TO A 
CCEPT SELECTION " 

40 X-30:Y-6:CHAR1,X.Y, "CRUSON] C 
RUSOFFD": RETURN 

41 G0SUBS4 

42 : 

43 IF GSTHEN ON Y GOSU8, , ,48.80, 

85,91,132,137,145,171,309,309 17 
9,372 

44 IFGS-0THEN ON Y GOSUB, , , 61 , 75 
,78: RETURN 

45 RETURN 

46 : 

47 REM RENAME FILES •••• 

48 : 

49 GOSUB 187:SCNCLR 

50 FAST:GS-0:YU-6:RESTORE 368 i GO 



SUB29B:SL0W 

51 CHAR1,S,0," RENAME MENU 
".1 

52 G0T036 

53 REM •••• MAIN LOOP -— 

54 DO;GETAS:LOOP UNTIL AS-"CDOWN 
]"OR AS-"CUP]"0RAS-CHR$tl3) 

55 IFA$-CHRSC13)THENG0SUB43:G0T0 
29 

56 IFAS-"CDOWN] "THENPS-" " : GOSUB 
S9. Y-Y*l:PS-"CRUSON: CRUSOFF]" : 
G0SUB59 

57 IFA$-"CUP] "THENPS-" " i G0SUB59 
: Y-Y-l: PS- "CRUSON] [ RUSOFFD " : GOS 
UB59 

SB G0T054: 5T0P 

59 IFY> YUTHEN Y-4:ELSE IF Y<4THE 
N Y-YU 

60 CHAR l.X.Y.PI :CHAR0,0. Y.SSCY 
):CHAR1,0,Y.SS(Y),1: RETURN 

61 PR I NT "C CLEAR] RENAME USING COL 
ON " : PR I NT " C DOWN] C DOWN] APPLY COLO 
N TO ALL NAMES CRUSOND C Y/N/OCRU 
SOFFJ " 

6a DO : GETAB: LOOP UNTIL AS-"N" OR 
AS--Y" ORAS-"C" 

63 IF AS- "Y "THEN 70 

64 IF A$-"C"THENPRINT"OK ; -CANCEL 
LED":SLEEP3:G0T046 

65 : 

66 REM SELECTED NAMES 

67 : 

6B GOSUB 183 

69 GOSUB219:SC-0:SCS-"WRITE COLO 
N AFTER": GOSUB 346 : CLOSE1 : RETURN 

70 ; 

71 REM "••* RENAME ALL 

72 ; 

73 G0SUBai9:G0SUB 358 : CLOSE1 : RET 
URN 

74 : 

75 REM •••• RENAME FILES 

76 : 

77 G05UB319: SC-0: 5CS- "CHANGE" ; GO 
SUB271 

7B CLOSE1 : RETURN 

79 : 

80 REM •••• INITIALIZE ■ 
Bl : 

8a UTS" " " : PR I NT " C CLEAR ] " ; 5SC 5 ) : C 
L0SE1S:0PEN1S,8, 15, "10: ":CL0SE15 
: IFDSTHENG0SUB187:SLEEP4 : PRINT 

83 RETURN 

84 : 

85 REM — DISPLAY DIR -«"• 

86 : 

87 PRINT-'CCLEAR] " ; SSC6) : CHAR1 , 1 , 
1, "CRUSON]NO SCROLLCRUSOFF] KEY 
TO PAUSECHOMEHDOUNICDOWNKOOWN] 

88 60SU8183: DIRECTORY: IFDSTHENPR 
I NTCHRS C 7 ) ; CHRS CIS); DSS ; SLEEP4 ■ E 
LSEPRINTCHRSC15) ;CHRSC7) - "COOWN] 
PRESS A KEY" : GETKEY AS 

89 RETURN 

90 : 

91 REM SETUP BOOT 

92 : 

93 PRINT"CCLEAR] " ; SSC7 ) : NS-CHRSC 
0) : GOSUB1B3 

94 CHAR1 ,0,3, "FORMAT DISK CRUSON 
](Y/N)CRUSOFFJ" 

95 DO:GETAS:LOOP UNT I LAS- "Y "ORAS 
-"N" 

95 I FAS- " Y"THENFL$- " " ; G0SUB141 : R 
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C128 UTILITY 



EM GO DO FORMAT 

97 OPEN 15.8,15: OPENS ,8,8, : PRI 
NTH1S, "B-A : ";0; 1;0 

9B IF DS-0 THEN PR I NT : PR I NT " BOOT 
SECTOR IS FREE":FR-1:GOTO105 

99 FR-0:PRINT*15, "U1";B;0;1;0 

100 PRINT*1S,"B-P";8;0 ; GET*B,CS, 
BS , MS : I FCS- "C "ANOBS- "B "ANDMS- "H " 
THENBE6IN: PRINTW15 , "B-P";8;7 : PR 
INT: RUS-"" 

101 00:GET*8.AS:RUS-RUS+AS:L00P 
UNTIL AS-"" 

102 IFRUS>""THENRUS-"BOOT FOR "* 

RUS*" EXISTS" 

103 PRINTRUS: BENO 

104 PRINT-BOOT SECTOR IS IN USE" 

105 PRINT:PRINTCHRSC1S3;CHRSC73; 

"CONTINUE OPERATION CRUSON3CY/N) 
C RUSOFF3 " 

106 DOrGETAS: LOOP UNT I LAS- "Y "ORA 

107 N IFAS-"N"ANDFR-1THENPRINTB15, 

"B-F: " ; 0 ; 1 ;0 

10B IFAS-"N"THENCL0SE8:CL0SE15:R 
ETURN 

109 DO 

110 SCNCLR: CHAR1 , 0, 24 , "ENTER QUI 
I TO RETURN TO MENU" , 1 

111 I NPUT " C HOME 3 C DOUN 3 C DOWN 3 Z OOUI 
N3 1 DOUN3 C DOUN3NAME OF BOOT PROGR 
AM" ; NNS 

112 IFLENCNNS3> 16THENPRINTERRSC2 
31 ■ NNS- "" : SLEEPS : GOTOl IS 

113 IFNNS-" "THENPR INTERRSC83 : SLE 

EP3 

114 I FNNS- "QU I T "THENPR I NT " ABORT I 
NG " : SLEEPS ! CLOSES: CLOSE IS: RETURN 

115 LOOPUHILE LENCNNS3MGORNNS-" 



116 PRINT"IS "NNS: PRINT"A BASIC 
PROGRAM CRUSON3CY/N3CRUSOFF3" 

117 DO:GETAS:LOOP UNT1LAS-"Y"0RA 
S-"N" 

118 IFAS-"N"THENBEGIN 

119 PRINT "BOOT IS FOR NON RELOCA 
TABLE PROGRAM " 

120 MOS-"BOOT":BEND :ELSEMOS-"RU 

N" 

121 U0-LENCNNS3+2B31 ;.UL-CU0AND25 
S3:UH-INTCU0/2S63 

122 PRINTW1S, "Ul:8 0 1 0" 

123 PRINTH15, "B-P 8 0" 

124 PRINTtIB, "CBM";N$;NS;NS;NS;NN 

SiNSiNS; 

125 PRINT*B.CHRSC1623;CHRSCUL3;C 
HRSC160);CHRSCUH3;CHRSC76 3;CHRSC 

165);CHR$C175); 

125 PRINT»B,MOS;CHRSC343;NN$;NS 

127 PRINTK15, "U2;B 0 1 0" 

128 CLOSES : CL0SE15 

123 PRINT-FINISHED ":PRINT" 

SAUE " [ NNS ; " TO THIS DISK " : PRIN 
T"AND IT UILL AUTOBOOT" 

130 SLEEPS: RETURN 

131 : 

132 REM PRINT DIRECTORY 
mm 

133 ! 

134 PR1NT"CCLEAR3";SSCB):PRINT"U 
ILL I PRINT C RUSON3DELETEDC RUSOF 
FT FILES?":DD:BETQAS:LOOP UNTIL 
QA$-"Y"ORQAS-"N" 

135 G0SUB183:CL0SE2:DU-4:G0SUB18 
3 : CLOSE 1 : CL0SE2 ! RETURN 

137 REM DELETE FILES ••*• 

138 : 



13S 60SUB219:SC-1:SCS-"DEL£TE":G 
OSUB 271 

140 CLOSE1 : RETURN 

141 : 

142 REM •«»• FORMAT DISK 

143 : 

144 PRINT"CCLEAR3";S$C10): IDS-HE 
XSC INTCRNDC03-6SS353 3 : IDS-MIDSC I 
DS, 2,23 : DCLEAR : DIS-" " : SES-" , " : I 
FDS -0THENBEGIN 

145 PRINT"CHOME3CODUN3";CHRS(273 
;"OTHIS DISK HAS BEEN FORMATTED 
BEFORE" 

146 PR I NT " C HQME3 C DOUN 3 C DOUN 3 " ; CH 
RSC27) "BCONTINUE C C RUSON3 Y/NC RUS 
OFF33": IDS-"" 

147 DO: BETAS: LOOP UNT I LAS- " Y "ORA 
S-"N" 

148 I FAS- " Y "THENSES- " CRUS0N30LD 
IDCRUSOFF3": GOTO150 

143 PRINTBES; " C HOME3 C D0UN3 " ; CHRS 
C27>i"E?F0RMAT CANCELLED" : SLEEP3 : 

GOT02S 

150 BEND 

151 I NPUT "FORMAT IN 1541 OR 1571 
MODE 1571CLEFT3CLEFT3C LEFT3CLE 

FT3CLEFT3CLEFT3 " ; DM 

152 IFDM-1541THENMS-"U0>M0" 

153 IFDM-1S71THENMS-"U0>M1" 

154 PRINT"CUP3"CHR$(27)"e": INPUT 
"INPUT NEU DISK NAME DISKttCLEFT 
3CLEFT3CLEFT3CLEFT3CLEFT3CLEFT3C 

LEFT3 " : NMS 

155 PR I NT " C HOME3C DOUN 3 " ; CHRS ( 27 3 
•"ePRESS RETURN FOR QUICK DIRECT 
ORY":PRINT"CLEAROUT OR ENTER NEU 

ID FOR" 

156 DO: INPUT'TULL FORMAT ON DISK 

157 ' LOOP UNTIL LENCDIS3< -20R ASC 
CDIS3-0 

158 IFDIS-CHRSC 133THEN160 

159 IFDIS<>""THENIDS-DIS:SES-" , 

■ 

160 PR INT"C HOME3 C DOUN3 " ; CHRSC 273 
■ "(3FORMATTING : - "NMS; SES ; IDS 

161 0PEN1S,8,15:PR1NTII1S,MS:PRIN 
T«15, "N0: "-NMS+ " , "'IDS 
152 PRINTH15, "U0>M1":CLOSE15 
163 PR I NT " C HOME 3 I DOUN3 " ; CHRSC 27 3 
■"SDISK IS READY FOR USE" 
154 IFDSO0THENBE6IN: PRINT "CHDME 
]CDOUN3";CHRSC273"GDISK ERROR DC 

CURRED 

165 PRINTCHRS(15);CHRSC73;DSS 

166 PRINT "TRY AGAIN CCRUSON3Y/NC 
RUSOFF3 3" 

167 DO:GETAS:LOOP UNTILAS-'-'Y"ORA 
S-"N": I FAS-"N"THENPRINT"ABDRT ING 

OPERATION" 

168 I FAS- "Y "THENPR INT "OK " : BEND : G 

OTO160 

163 SLEEP3: RETURN 

170 : 

171 REM •••• UAL I DATE DISK **•* 

172 PRINTCHRSC73; : SCNCLR :PRINT 
SSC113 

173 PRINTCHRSC 153 ; "CDOUN3COLLECT 
ING A DISK CAN DESTROY" 

174 PRINTCHRSC 153; "DIRECT ACCESS 
FILES:- ":PRINT" CONTINUE CRUSO 

N3 C Y/N3C RUSOFF3 " 

175 DO : GET AS : LOOP UNT I LAS-"Y "OR 
AS-"N" 

176 IF AS-"Y"THENPRINT"CUP3CUP3C 
UP3";CHRSC273"BOK : UAL I DAT ING 0 
ISK " : COLLECT : FLS- " " : G0SUB187 : SLE 



EP3 : DCLEAR: RETURN 

177 PRINT"CUP3CUP3CUP3CUP3";CHRS 
C 27 3 ; "dOK : - CANCELLED" : SLEEPS : RE 
TURN 

173 REM — • END PROGRAM •••• 
1B0 : 

181 SCNCLR: PR I NT "END PROGRAM :- 
ARE YOU SURE? ": DO : GET AS: LOOP UNT 
IL AS- ,, Y"ORAS-"N" 

182 IFAS-"Y"THENCOLOR0.12 : COLOR 

4,14 : COLORS , 1H : CLR : GRAPH I C RGRf 
03.1: GRAPHICCLR: NEU: SYS16384 : ELS 

E RETURN 

1B3 : 

184 REM ••*• DCLEAR 8 CHECK ERRC 
PS 

1B5 : 

186 DCLEAR 

187 PES-SES'"DISK ERROR :-"*OSS: 
IF DS THENCHAR1, 0,24, PES. 1: SLEEP 
3:PRINT"CCLEAR3":GOT02S 

188 RETURN 

189 : 

190 REM — * GET DIRECTORY •••« 
131 : 

192 PR$-"":0PEN2.DU :PRINT*2,"0I 

SK NAME : - : IF -15B AND ST TH 

EN PES-BE$*ERRS(S>:CHAR1,0,24,PE 

ffi . 1 : SLEEP2 : SCNCLR : DU-3 : CLOSES : GO 

T0192 

133 0PEN1S.8. 1S:0PEN5.B,5, t* : IF 
DSTHENPR INTCHRSC7 3 ; CHRSC 15) ; DSS : 
SLEEP4: RETURN 

194 PRINTttlS, "Ul " ; S; 0 ; IB; 0 : PRINT 
HIS, "B-P";S;144 

195 DO : GETH5, AS: PRINTB2 , AS ; : LOOP 
UNTIL AS-CHRSC1G03:DO:GET»5.AS: 

LOOP UNTILASOCHRSC 160) 

136 PRINTH2," ID:-";AS; :D0:GET»5 
> AS:PRINT*2,A$; :LOOP UNTIL AS-CH 
RSC1B0) 

137 PRINTB2, "FORMAT: -"; :DQ:GET*S 
.AS:PRINT«.2,AS; : LOOP UNTIL AS-CH 
RSC 160 3 : PRINTB2 : FORI-1TOB0: PRINT 
112. "Cs -3"i :NEXT 

198 PRINTB2, "FILETYPE TRACK SECT 
OR"," NAME BLOCKS 
LOCAT ION" : FOR I - 1 TO80 : PR I NT*2 , 
"Cs *3"; : NEXT 

193 TR-1B:SE-1:PT-TR:PS-5E 

200 PRINT*15 ( "U1";5;0;TR;SE 

201 PRINT*15.' , B-P",5,0:GET*S,TRS 
SES : TR- ASC CTRS) : SE-ASC C SES 3 

202 B-2:FORN-1TOB:PRINT((15,"B-P" 

:S:B 

203 GETW5.AS:Z-A5CCAS): IFZO0AND 
Z-1S2>0THENZ-Z-192:ELSEIF2<>0THE 

NZ— Z — 1 2B 

204 IFOAS- "N" ANDZ-0THENGOTO212 : E 
LSE PRS-PRS+TYSCZ)*" " 

205 GET* 5 , AS : TK-ASCC AS 3 : 1 FTK-0TH 
EN214 : ELSE! FTK>STHENPRS-PRS*STRS 
CTK) : ELSEPRS-PRS*" "*-STRSCTK3 

206 GETW5.AS:SK-ASCCAS3 : IFSK>STH 
ENPRS-PRS-STRSCSK3 : ELSEPRS-PRS* " 

■•♦STRSCSK) 

207 PRS-PRS+" ":FORI- 
3T018: GETtS . AS : PRS-PRS+AS : NEXT1 : 

208 F0RI-19T028:GETM5.AS:NEXT:L0 
-ASCCAS3:GET"5. AS : H I -ASCC AS 3 : I-L 
0'25G*HI 

209 IF I< -9THENPRS-PRS-" "+STRSC 
I 3 : ELSE I F K -99THENPRS-PRS+ " "+ST 
RS( I 3 : ELSEPRS-PRS-STRSt I 3 

210 IFZ<>0THENPRINT*1S."U1";5;0; 
TK;SK:PRINT*15. "B-P" ;S;2: GETWS, A 
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S:LO-ASCCAS):GETtlS. AB:HI-ASCCAS) 
: Q-L0+2S6-H I : PRS-PRS+ " 

"+STRSCQ3 
511 PRINT#2.PRS 

212 PRINTttlS. "U1";5;0;PT;PS:B-B- 
32:PRS-" ":NEXIN 

213 IFASCCTRS)O0THENPT-TR:PS-SE 
: GOTO200 

214 FORJ-1TOB0: PRINTIt2, "Cs •]";: 
NEXTJ : PR I NTB2 : CLOSES 

215 NUS-CHRSC0)rOPENl,B.0. "S0 i S*; 
8 ' " : GET* 1 , AS . AS , AS , AS . AS , AS 

216 GETttl.AS: IFASO " "THEN216 

217 GETttl.AS,AS,AS.BS:8C-ASCCAS+ 
NUS)+ASCCBS*NUS)*25G 

BIB PRINTtt2,CHRSC27)"-"CHRSCl )"* 
••";BC; "••« BLOCKS AVAILABLE "C 
HRSC27 V'-"CHRSC0) ; CLOSE 1 : CL0SE15 
:SLOW: IFDU-3THENPRINT"PRESS A KE 
Y " : DO : GETAS : LOOPUH I LEAS- " " : RETUR 
N 

219 : 

220 REH •«•• GET NAMES 

221 : 

222 0PEN15.B, 15, "I0":PRINT«1S, "M 
-R"CHRSC1B)CHRSC0)CHRSC2):UT$-" " 

223 F0RI-lT02:GETttlS,AS:UTS-UTS* 
AS: NEXT 

224 I FUTS-FLSTHENCL0SE15: RETURN 

225 FLS-UTS:CL0SE15 

22G FAST : FORXT-0TO120 : NASC XT ) - " " 
: NEXT 

227 QPEN1 ,8,0, "SB": I FDSTHENSLOU) : 
G0SUB1B7: SLEEP4 : RETURN 
22B CO-0 

229 SCNCLR: GETttl.AS. OS 

230 GET* 1 , AS , AS i I FAS- " "THEN SLOW 
: RETURN 

231 GETtll.AS.BS 

232 GETttl.AS: I FAS- " "THENGQTO230 

233 IFAS-CHRSC343THENBE6IN: CO-CO 
♦1 

234 AS-"":DO UNTIL AS-CHRSC 34) : G 
ETttl.AS; IFAS<>CHRSC34)THEN NASCC 
0)-NASCCO)»AS 

235 LOOP: BEND 

236 G0T0232 

237 SLOW: RETURN 
23B : 

239 REM GET BYTES FROfl DISK 
•••• 

240 : 

241 SCNCLR: GETttl.AS. AS 

242 GETttl.AS, AS: I FAS- " "THENG0T03 
4 

243 GETtt 1", AS , BS 

244 GETttl.AS: I FAS- " "THENGOT0242 

245 RETURN 
24G : 

247 REM *••- SELECT NAMES ••** 

24B : 

249 GOSUB 302 

250 FDRXT-2T0C0. PR INT "C HOME J C DOW 
N3 C DOWN DC DOWN] C DOWN J 

251 PR I NT " C HOME 3 Z DOWN] C DDWN] C DOW 
N3CODWN3 " ; CHRS C 27 ) ; "t?RENAME ; - " ; 
NAS(XT) ; " CRUSON3C Y/N/OCRU50FF3 

252 DO: GET AS: LOOP UNT I LAS- "Y "OR 
AS- "N "ORAS- "C " : I FAS- "C "THENPR I NT 
"OK: - CANCELLED" : SLEEP3: G0TO257 

253 I FAS- "V'THENBEGIN: NES( XT )-LE 
FTS(NASCXT) , 14)*CHRSC1G0)*": " : FL 
j- - •• 

254 RENAME D0.CNASCXT)) TO CNESC 
XT)).U8 : BEND 



255 IF0STHENPR1NTCHRSC7);CHRSC1S 
) : CHAR1 , 0 . 24 . DSS , 1 : 5LEEP2 : GDSUB1 
83: PRINT"CUP3 "CHRSC27) "B" 

256 NEXT 

257 RETURN 

258 ; 

259 REM CHANGE ALL NAMES « 

260 : 

261 SCNCLR : IF CO-1THEN: PRINTCHRS 
C7);CHRSC 153"NO FILES ON THIS DI 
SK " : SLEEPS : RETURN 

252 PRINT"CURRENT DISK :-CRUSON] 
";NABC1); "CRUSOFF] ID :-CRUSON]" 
;UTSrPRINT 

263 PRINT-THIS PROCEDURE WILL RE 
NAME ALL FILES" 

264 PRINT"CONTINUE CRU50N] C Y/N3C 
RUSOFF 3 " : DO : GETAS : LOOPUNT I LAS- " Y 
"ORAS-"N" 

265 I FAS- "N"THENRETURN 

266 FLS-"":F0RXT-2T0CD:PRINT"CH0 
ME3C DOWN] C DOWN] C DOWN 3 C DOWN 3 CHANG 
ING ; -"jNASCXT)*" 

267 NESCXT3-LEFTSCNASCXT) , 143+CH 
RSC 160)+": ■ 

26B RENAME O0.CNASCXT3) TO CNESC 
XT)),U8 

269 IFD5THENPRINTCHRSC7);CHRSU5 
) : CHAR 1 .0.24 , DSS, 1 : SLEEP 1 : PRINT" 
C UP3 "CHRSC27)"@" : NEXT : ELSE NEXT 

270 RETURN 

271 ; 

272 REM *•** RENAME 

273 : 

274 GOSUB302 

275 PRINT:PRINT:F0RXT-2T0C0 

276 PRINT"CHOME]CDOWN]CDOWNKDOW 
N3CDOWN3CDOWN3";SC$; " : -";CHRSC2 
7)"0" ; NASCXT)i " C RUSON] CY/N/OCR 
USOFF3 " 

277 DO : GET AS : LOOP UNT I LAS- " Y"OR 
AS-"N"OR AS-"C" 

278 I FAS- " Y " ANDSC- 1THENSCRATCH C 
NAS C XT ) ) : FLS- " " : GOT02B4 

279 IF AS-"C"THENPRINTCHRSC15)iC 
HRSC7); "OK:- CANCELLED ": G0T02BB 

280 IFAS-"Y"ANDSC-0 THENBEGIN : QU 
S- " " : PR I NT "C HOME] C DOWN] C DOWN] C DO 
UNKOQWN3CDOWN3";CHRSC27) ; "QENTE 
R NEW NAME FOR " ; NASC XT ) : INPUT 0 
US 

281 IFDUS-""THEN2B7 

282 NESCXT3-QUS 

2B3 RENAME D0 , C NASC XT ) ) TD CNESC 
XT)),UB : FLS-"": BEND 

284 IFDSTHENBEGIN : PRINTCHRSC 73 ; C 
HR$( 15 ) : CHAR1 , 0 , 24 . DSS , 1 

285 IFSC-0THEN CHAR1 , 0, 23, "BLANK 
NAME TO MOUE ON OR RE-ENTER NAM 

E":SLEEP2 

285 SLEEP2 : DCLEAR: PRINT " CUP] CUP 3 
CUP3 "CHRSC 27) "G " : BEND: GOTO280 
2B7 NEXT: PRINTDSS: DCLEAR: RETURN 
288 SLEEPS: RETURN 

283 : 

290 REM *•** ERROR TRAP •- — 
291 

292 FAST; IFREGRC03-5THENWINDOW0, 
0 , 79 . 24 : ELSEWINDOW0 , 0 . 39 , 24 

293 I FER-5ANDDU-4THENDU-3 . SLOW : E 
LSE I FER-5THENSL0W : PES-BES+ERRSC E 
R) :CHAR1, 0.24, PES, 1 : SLEEP3 

294 FLS-"":G0T029 

295 : 

296 REM •••• READ DATA FOR MENU 



•«•» 

297 : 

298 F0RXT-4T0YU: READ SSCXT) 

299 DO: SSCXT)-" "+SSCXT3+" " 

300 LOOP UNTIL LENCSSCXT) )->30 

301 SSCXT)-LEFTSCSSCXT),30):NEXT 
: RETURN 

302 : 

303 REM — PRINT DETAILS ON SCRE 
EN 

304 : 

305 SCNCLR: PRINT-CURRENT DISK :- 
C RUSON3 " ; NASC 1 ) ; "CRUSOFF3 ID : -C 
RUS0ND";UTS:PR1NT 

306 IF C0-lTHEN:PRINTCHRSC7)iCHR 
SC15)"N0 FILES ON THIS DISK":SLE 
EP3: RETURN 

307 PRINT "CHOME3 CDDWN3 CDOWN3SEL 
ECT FILENAMES TO " \ SCS 

30B RETURN 

309 : 

310 REM LOCK/UNLOCK 

311 REM DELETE/RESTORE FILE 
S •••* 

312 : 

313 GOSUB 317: RETURN 

314 : 

315 REM •••• FILETYPE EDITOR 
• ••• 

316 : 

317 SCNCLR 

318 DPEN15.8, 15, "I": IFDSTHENSCNC 
LR:G0T01B6 

313 0PEN5, 8,5, : PRINT"CCLEAR3C 
RIGHT3CRIGHT3CRIGHT3CRIGHT3CRIGH 
T3CRIGHT3CRIGHT3CRIGHT3CRIGHT3CR 
I6HT3C RIGHT3C RIGHT3FI LETYPE EDIT 
OR":TR-18:SE-l 

320 PRlNTtllS, "Ul"i5i0iTR;SE:PT-T 
R:PS-SE 

321 PRINTttl5. "B-P",S.0:GETtt5.TRS 
, SES : TR-ASCCTRS) : SE-ASCCSES) 

322 B-2:F0RN-lT08:PRINTttl5, "B-P" 
iS;B 

323 GETIIS.TS.DTS.DBS 

324 T-ASCCTS):DB-ASCCDBS):DT-ASC 
CDTS) : IFDT-0THEN335 : REM LAST NA 
ME NO TRACK 

325 IFT>0ANDT-12B<GTHENT-T-1EB:L 
S-" ":G0T0327 

326 IFT>0ANDT-132<6THENT-T-132:L 
S- "LOCKED " 

327 PR I NT "C HOME3 C DOWN J C DOWN 3 C DOW 
N 3 C DOWN 3 C DOWN 3 "CHRS C 27 ) "0FOUND : 
-":PRINT 

328 F0RI-1T016 

323 6ETM5 , AS : I FAS-" "THENAS-CHRSC 
0) 

330 PRINTAS j 

331 NEXTI : PRINT" Cs *]CRUSON3";L 
SjTYSCT); : G0SUB33B : B-B+32 

332 IFKES-"Q"THEN337 

333 NEXT N 

334 IFASCCTRS)O0THEN320:REM NOT 
LAST DIRECTORY SECTOR YET 

335 CLOSES : REM CLOSE 

336 CLDSE15 : REM EUERYTH ING 

337 RETURN 

338 : 

339 REM ••*•• GET ELECTION **•• 

340 : 

341 KES-"" s PRINT"CHOME3COOWN3CDO 
WN] C DOWN 3 C DOWN 3 C DOWN 3 C DOWN 3 C DOWN 
3 C DOWN] C DOWN 3 C RUSON3 LC RUSOFF] -LO 
CK CRUSON3UCRUSOFF]-UNLOCK C RUSD 
N3DC RUSDFF] -DELETE CRUSON]RCRUSO 
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FF3-REST0RE" 

342 PR I NT " C RU5DN3 QC RU50FF 3 -QU IT 

; : INPUT" C RUSDN] RETURNC RUSDFF 3 - 
NO CHANGE ".;KES 

343 IFKES-""aRASCCKES)-0 THENRE 
TURN 

344 IFKES<> "L"ANDKES<> "U"ANDKES< 
> "R"ONDKES< > "0 "ANDKESO "Q"THEN34 

1 

345 I FKE$-"Q"THENCLDSES : CLOSElS : 
RETURN 

346 IFKES-"L"THENT-ASCCTS)DRB4 

347 IFKES-"U"THENT-ASCCTS)AND191 

348 IFKES""D"THENT-0 

349 IFKES-"R"THEN60SUB3S9 

350 : 

351 REH •"•WRITE MODFCTION TO 01 

358 : 

353 PRINT <tl5, "B-P";5;B 

354 PRINT15 , CHRSC T) ; 

355 PRINTf.15, "U8 " ; S ; 0 ; PT ; PS 
35G I FKES- " R "THENBEG IN : PRINT" IT 
IS ADVISABLE TO COLLECT" 

357 PRINT"THE DISK TO ENSURE A U 
ALID BAH": BEND 

35B FORXT-0TO500: NEXT: RETURN 

359 : 

3G0 RE" SELECT TYPE OF FILE 
3G1 : 

368 PR I NT "CHOME 1 C DOWN] C D0UIN3 C DOU 
N J C DOUINJ C DOWN] "CHRS ( 87 ) "0 " ; : FORX 
T-0TO4 i PRINTXT TYI C XT 5 i NEXT 
XT 

353 PRINT"SELECT FILETYPE TO RES 



TORE": INPUTX 

354 IFX>4ORX<0THENPRINT"CUPD " ! GO 
T0363 

365 T-X+188: RETURN 

366 DATARENAflE FILES, INITIALIZE 
DRIUE.DISPLAY □ I RECTORY . HAKE A B 
DOT DISK , PRINT DIRECTORY 

367 DATADELETE FILES.FORHAT A 01 
SK , COLLECT , LOCK/UNLOCK FILE , DELE 
TE/RECOUER FILES, QUIT . SELECT COL 
ORS 

366 DATAPUT COLON AFTER F/NAHE, R 
ENAtlE FILES.GO TO nA IN MENU 

369 REM 

370 REM SELECT SCREEN COLORS 

371 REM 

378 SCNCLR:L1I-" Cs UKs *3Cs »D 
Cs -DCs -DCs «3Cs -Us •DCs -Kb 
•DCs -DCs *Xs "DCs *3Cs -3Cs • 
DCs -DCs »DCs -DCs •DCs -DCs »DC 
s »DCs -DCs -DCs -DCs -DCs -DCs 
•DCs "DCs "DCs »DCs "DCs *DCs »3 
Cs »DCs ID" 

373 LB*-" Cs JDCs -DCs »DCs •Xs 
•DCs "DCs -DCs -DCs *DCs »DCs • 

DCs -DCs "DCs -DCs -DCs -DCs -DC 
s »DCs -DCs -DCs *DCs -DCs -DCs 
•DCs *Ks *DCs *DCs "DCs -DCs "D 
Cs "DCs "DCs "DCs "DCs "DCs "DCs 
KD " 

374 SCNCLR:PRINTL1S:PRINT " Cs - 
D COLOR SELECTION HENU 

Cs -D":PRINTL8S 

375 Ul I NDOUI0 , 1 8 , 39 , 23 

376 SCNCLR:PRINTL1S:PRINT " Cs - 



3 SELECT SCREEN COLOUR 

Cs - D " : PRINTL2S : INPUTS: IFS< 1 
ORS>16THENPRINTERR$(14):G0T037B: 
ELSEC0L0R4.S 

377 GOSUB390 

378 IFASO "Y"THEN376 

379 REM FR6R(0J-5THENCOLOR 
6,S:ELSECOLOR0,S 

3B0 SCNCLR:PRINTL1S:PRINT " Cs - 
3 SELECT BORDER COLOUR 

Cs -3":PRINTL8S: INPUTB: IFB<1 
ORB> 16THENPRINTERRSC 14) : GOTO3B0: 
ELSEC0L0R4 , B 
381 GOSUB390 
388 IFASO "Y"THEN3B0 
3B3 REM C0L0R4.B 

3B4 SCNCLR:PRINTL1S:PRINT " Cs - 
3 SELECT PRINT COLOUR. 

Cs -3":PRINTLa$: INPUTPP: IFPP 
<10RPP>16THENPRINTERRSC14):G0T03 
B4:ELSEC0L0R4,PP 
3B5 GOSUB390 
386 IFASO "Y"THEN3B4 
3B7 REn COLORS, S 

3BB C0L0R4 , B : C0LDR5 , PP : COLOR CRG 
R(0)),S: IFRGRC0)-STH£NUINDOUI0,0, 
79 , 24 : RETURN ; ELSEWINDOUI0 , 0 , 39 , 84 
: RETURN 

3B9 AS-"": INPUTAS: I FAS- " "THEN3BS 
: ELSE RETURN 

390 SCNCLR:PRINTL1S:PRINT ■ Cs - 
3 IS YOUR SELECTION OK 17 

Cs -3";PRINTL8S 

391 G0SUB3BS 
398 RETURN 
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vect 


or 


by SYS 53310. 




IOC 


STY 30307* 


To use the program to its 
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short auto-run loader program. 
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P.A.Eves 


140 
150 


: hi byte of start of message 
LDY #>TEXT 




pf}7 mi rz, -q 1 


150 


; print the message 




XSw , — w i | — ' — ) — ' w i 


17G 


JSR SPS1E 


171,78., 116 




130 


; bad; to Easic 




. S.S9, . 1,35, /5 


ISO 


jriP SA*i74 


32 £9 7B B4 BE . BE 


m; mc up ciC ' 


120 


TEXT . EYT 253.345,340.340 


3 e6r^=53E10T::53B4 


7 : READS : ?OKE£ , 


. S45 . 34" , 34 : , 340 , 3E0 , 345 , 345 , 354 


E:UEXT 




.35= 


;,S5°.35E 


4 SYS5321C 




130 


.BYT SEE, SEE, 300 


10 ; program start 


address 


140 


.e*:o 
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New Characters 
on the MPS 801/3 



Fed up with your MPS 801/3 character set? Now you can 
design your own characters. 



hen I bought my MPS 803 primer. 
I was very disappointed with the print 
quality; no true deseenders and no chance 
of having Near Letter Quality (NLQ). 

To overcome the most annoying 
problem of the two. no true descenders. 
1 could think of two ways: 

One. to print each line of text with 
Iwo passes of the print head, the first to 
print the top part of the letters, the second 
to print the descenders. 

Two. to re -define the character set 
so it's a little more squashed but has true 
descenders. 

I chose the latter, partly because it 
would be quicker to print the text, and 
partly because I could design lots of 
different character sets more easily and 
they would take up less memory. 

Presented here is that program, with 
a few extra frills. It is not very difficult 
to use. is as fast as it can be. because the 
printer is operating in bit image mode, 
and also uses up very little memory. 

The character sets take up $0300 
(768) bytes and can be stored anywhere 
in memory (except from $0000-$08(X) 
(2048). obviously!), including under the 
ROMs. 

Getting it in 

The program is presented here as a Basic 
listing called PRINTER DRIVER. Type 
this in using our SYNTAX CHECKER 
program that can be found with the 
LISTINGS article. Make sure that you 
SAVE the program to tape or disk before 
you RUN it. 

If the program finds any errors when 



you RUN it it will indicate the line where 
the error has occurred. When you've got 
everything going O.K.. type: 

SYS 52603 

to initialise it. or 

SYS 52600 

to switch it off. which I doubt will be 
necessary. If you use RUN 
STOP/RESTORE, you'll have to 
re-initialise it. Nothing should appear to 
have happened after initialisation. You 
can now use the printer as normal, but 
everything will be printed through the 
driver. 

There are a few more things that you 
may need to know: 

OPEN X,Y,7 will prim in UPPER 
CASE/lowcr case, as normal. 
OPEN X,Y will print in UPPER 
CASE only (shifted letters will be printed 
in lower case.) 

CHR$(27)CHR$(SET) - selects the 
character set, where set is the most 
significant byte of the start address of the 
set i.e. If the start address of the character 
set is SFC00 (64512), the most significant 
byte is 64512/256=252. 
CHR$<18) - will print in inverse 
characters until you de-select it with 
CHRS(146> 

CHR$(8) - will print in Bit Image mode 
until you de-select it with CHR$(15) 
CHR$(14) will print in enhanced 
characters until you de-select it with 
CHR$(I5> 



Alt of the above CHR$ codes must 
be printed after a PRINT(No.)X 
instruction, where X is the logical file 
number (see printer manual), and Y is the 
device number (normally 4). 



Printing Rubbish 

If you have typed in the Driver and 
initialised it. don't be surprised when you 
get a whole load of garbage printed out. 
This is because you have to do more 
work: you have to type in a character set. 
There are five sets that I have designed 
included here, choose which you think 
will be the most useful, and type it in. 
or better still, type them all in. Again use 
the SYNTAX CHECKER to check your 
typing. The default character set that the 
driver software will print starts at 64512. 
If you wish to print from another set use: 

PRINT(No.)X.CHR$(27)CHRS(start 
address/256) 

The character sets can be relocated to any 
position in memory. (I have positioned 
them under the KERNAL ROM) 
prov ided that the start address div ided by 
256 gives a whole number. 



On your own ^ 

If you plan to design your own character ^ 
sets, you'll find the following information 
useful: 

When designing the characters, each ^ 

number in the list of data stands for one 5q 
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row which is primed. The formal in 
which the information is stored is shown 
in Figure 1. 

The important thing about the above 
is that it is different from when you define 
normal U.D.G.s (for games etc.). For the 
printer, the rows are VERTICAL instead 
of horizontal. 

The MPS 803 can only print 7 dots 
vertically, so in each byte there is one bit 
not used. I've used this bit to tell the 
driver whether to print that row or not; 
if bit 7 is SET. then that row will be 
printed, if it's NOL then it won't be. This 
makes it possible to define character sets 
of different widths, or even a proportional 
set. The maximum width of a character 
is 8 rows, the normal MPS803 character 
width is just 6 rows. 

Now let me try to clarify what I've 
just said: Look at Figure 1. from that you 
can see that because bit 7 is SET. row 0 
will be printed. In fact, if you look 
carefully at it. you can see that nothing 
will be printed, but the print head will 
move one row to the right, so that all the 
letters aren't joined together. Now look 
ai row 7. bit 7 is NOT set. so that line 
will not be sent to the printer. 

The line of data for the letter "NT I 
have designed would be: 

DATA 128.191.130.140.191.0,0 

NLQ? 

I have thought of one way of producing 
a form of NLQ (???) on this printer: 

First, print out your text, 
remembering exactly how far up and 
across the paper was. 

Now. put the paper back into the 
same position as last time, and print the 
text again. If you do this just slightly 
wrong, you'll get double images of every 
letter, extremely annoying, but. do it 
right, and you have a kind of NLQ on the 
MPS 803. 

Important Note 

This program should work with most 
Commodore printers that will print in Bit 
Image Mode, e.g. the MPS 801 but we 
haven't been able to test it with them all. 
The program is not designed to work 
together with commercial software. If you 
want to try it go ahead, but, we can't 
guarantee what the results will be. 



Figure 1 
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PROGRAM : DESCENDER LDR 



AE 100 REM ' DRIVER CANNOT BE R 

E LOCATED * 
88 110 SA-52500 
A8 120 B-0 : FORX-0TO1 1 :READA:B-B 
+A : POKESA+X . A : NEXT : SA-SA+X : R 
EADA: I FA-BTHEN120 
06 130 1 FA >0THENPRI NT'DATA ERRO 
R IN LINE"PEEK(63)+PEEK(64)' 

256 

52 1000 DATA 76.51,205.169,0,14 
1.150, 206 . 141 , 151 . 206 .141.16 

43 1002 DATA 152.206,141,153.20 
6.141. 155 . 206 . 160 . 205 , 169 ,64 
. 1958 

7D 1004 DATA 140,39,3.141,38,3, 
96,172, 157,206,173,156. 1324 

65 1006 DATA 206,140.39.3.141.3 
8 , 3 . 96 . 234 , 141 . 148 . 206 . 1 395 

5F 1008 DATA 165.154,201.3,208. 
6 . 173 , 148 . 206 , 76 . 22 . 231 . 1593 

17 1010 DATA 176.3,76,219.241,1 
73,148.206,72.32,95,205.1646 

15 1012 DATA 76,243.205,173,152 
. 206 , 208, 33 . 173 . 155 . 206 . 208 , 
2038 

FB 1014 DATA 46.173,148.206,201 
, 27 . 240 . 13 . 173 . 151 . 206 . 240 , 1 
824 

72 1016 DATA 55,173.148,206,141 
,154,206.169,0.141.151,206.1 

750 

CE 1018 DATA 104,104.104.24.96. 
173. 148 , 206 . 201 . 15 . 208 , 5 , 138 
8 

C4 1020 DATA 169,0,141.152,206, 
104.104.104.76,168.255,173,1 

652 

91 1022 DATA 148.206.141.155.20 
6 . 240 . 225 . 169 , 32 . 32 . 243 . 205 , 
2002 

DA 1024 DATA 206.155.206.208,24 
6 . 76 . 1 28 , 205 , 173 , 148 , 206 , 201 
.2158 

4E 1026 DATA 8.208.6.141.152.20 
6.76,145.205.201.14.206.1570 

84 1028 DATA 6.141.153.206.76,1 
28 , 205 , 201 , 15 . 208 . 1 1 . 169 . 151 
9 



OF 1030 DATA 0.141,153.206,141. 
152,206,76,128,205.201, 18,16 
27 

E6 1032 DATA 208,6,141,150,206, 
76.128.205.201,146,208,8,168 
3 

46 1034 DATA 169.0,141,150,206, 
76, 128,205,201 , 16 , 208. 6 . 1506 

02 1036 DATA 141,155.206.76,128 
, 205 .96 . 201 . 32 , 144, 24 . 201 , 16 
09 

12 1038 DATA 96,176.6.56.233.32 

.76. 24,206.201, 192, 144. 1442 
C7 1040 DATA 10,201,224,176,6.5 
6 . 233 , 1 28 , 76 , 24 . 206 , 169 . 1509 

CI 1042 DATA 15.32.168,255.104, 
76,168.255.133.251.165,185,1 
807 

B8 1044 DATA 201.255,208,10,165 
.251 . 201,32, 144,4,73.96, 1640 

BC 1046 DATA 133.251.169.0.133. 

252.6,251.38,252.6.251.1742 
B4 1048 DATA 38.252.6,251.38,25 

2,173.154,206,24.101,252.174 

7 

18 1050 DATA 133.252.140.149.20 
6.142.148.206,169.8.32,168.1 
753 

99 1052 DATA 255.160.7.120,32.1 
38 , 206 , 177 , 251 . 153. 159 . 206 , 1 
864 

A5 1054 DATA 136,16.248.32,138. 
206,88.200. 185, 159 , 206 . 16 , 16 
30 

32 1056 DATA 18.174,150.206,240 
,2.73.127.174.153,206,240.17 

63 

B3 1058 DATA 3.32.168,255,32.16 
6,255.200.192,8.208,228,1749 

AA 1060 DATA 172.149.206,174.14 
8.206. 173. 155, 206.208.2. 104. 
1903 

83 1062 DATA 24.96.165,1.73.7.1 

33.1.96,0.0.0.596 
DF 1064 DATA 0,0.0,0,0.0,252,0. 

202.241.0.0.695 
El 1066 DATA 0.0.0.0.0.0.0,0.0, 

0.0.0.-1 
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PRQGRAH : DESCENDER SET 



100 REM • DESCENDER • 
110 SA-64512 

120 PRINT"ESC CODE FDR SET - 

CHRSC57JCHRSC "5A/556")" 

130 B-0 : FORX-0TO11 : READA: B-B 

♦A : POKESA*X , A : NEXT : SA-SA+ X : R 

EADA: IFA-BTHEN130 

140 I FA>0THENPR I NT "DATA ERRQ 

R IN LINE"PEEKC635*PEEKCB4D- 
£56 

1000 DATA 128, 158, 128, 158, 15 

8,186,0,0,158,128,128,555.13 
74 

1005 DATA 159,158.0,0,158,13 
5.131,158,135,131.0,0,1038 
1004 DATA 150,148,190.148,19 
0,148,0,0,158,135,170,255,16 

1006 DATA 170,144.0,0,128,17 
7,137,164,163,128,0,0,1211 
1008 DATA 12B.148.170.25S.17 
0.162,0,0,128, 128,128,132,15 
49 

1010 DATA 131, 158, 0,0, 15B, 15 
6,165,193, 158, 158.0,0,1154 

1015 DATA 159,158,193,162,15 
6 , 128, 0 , 0 , 128 , 170, 156, 190 , 15 
39 

1014 DATA 156,170,0,0,128.13 
6,136,180,136,136.0,0,1188 

1016 DATA 129,158,158.195.17 

6 , 158 , 0 , 0 , 1SB , 136 , 136 , 136 . 14 
16 

1018 DATA 136,136,0,0,128.12 

8, 158, 176,176. 128,0,0, 1136 

1020 DATA 159.150.144,136.13 

5,130,0,0,158.159.177.173,14 
66 

1025 DATA 163,158.0,0.128,12 

8, 162, 191, 160, 158,0.0, 1518 

1054 DATA 158,178.169,169,16 

8,166.0,0,158,145.161,161,15 
74 

1026 DATA 165. 155.0,0. 12B. 13 
6, 140, 138, 181, 136.0,0, 1188 
1028 DATA 128,151,165,165.16 
S, 153.0. 0,158, 156, 166, 165, IS 
45 

1030 DATA 16S, 152.0,0, 128. 12 
8, 129, 185, 133. 131,0,0, 1155 
1032 DATA 128, 154, 16S, 165, 16 
5^154.0,0, 158,134,169, 169 , 15 

1034 DATA 153.142,0,0,128,12 
B, 12B, 164, 164, 128,0,0, 1135 
1036 DATA 158,158,158,196,19 

0,128,0,0,129,136,148,162,14 
65 

1038 DATA 165,158,0,0,158,14 

8, 14B.14B, 148, 148,0,0. USB 

1040 DATA 128.162,165,148,13 

6,128,0,0,128,130,129.168,14 
20 

1042 DATA 133,130.0,0,128,15 
B. 161, 173, 169, 134,0.0, 1186 
1044 DATA 12B, 144, 170, 170. 17 
0. IBB, 0,0, 128,191 , 164. 162,16 
15 

1046 DATA 162,156,0,0,128,15 
6, 162, 162, IBS, 162,0,0, 1250 
1048 DATA 128,156.162,162.16 
4. 191.0,0, 128, 156, 170. 170, IS 



87 

E6 1050 DATA 170,140.0,0,128,12 

8. 132.190, 133, 159.0.0,1150 

D2 1052 DATA 128,140,210,210,51 

0,180,0,0.128,191,132,130.16 
69 

00 1054 DATA 130.188.0,0,128,12 

8,164,188.160,128,0.0,1215 
26 1056 DATA 128,128,195,197,18 
9, 128,0,0, 128, 191, 136. 140.15 
57 

IB 1058 DATA 146.160,0,0,128,15 

8, 161 , 191 .160, 128,0,0, 1202 
46 1060 DATA 128,190,130.188.13 

0, 188,0,0, 128, 180, 132,130. 15 
34 

3D 1062 DATA 130.188,0,0,128,15 

6 , 162 , 1 65 , 1 65 . 156 , 0 , 0 , 1544 
45 1064 DATA 158,254,146,162,16 
5, 156,0,0, 128,156, 162, 162, 16 
16 

Bl 1066 DATA 146,254,0,0,128,19 

0.132, 130. 130, 132,0,0,1542 
80 106B DATA 128,164,170,170,17 
0, 144,0,0, 128.130, 159.162, IS 
25 

A0 1070 DATA 162,144,0,0,128,15 

8, 160,160, 160. 190,0,0, 1262 

A7 1075 DATA 158,145,144,160,14 

4,145,0.0.128.158.160.152.14 
58 

07 1074 DATA 160,158.0,0,128,16 
5, 1B2, 136, 182, 162,0,0, 1570 

E9 1076 DATA 128,142,208,509,50 
8^190.0,0,128,165,178.170,17 

68 1078 DATA 166,162,0,0,128,12 

8,255,193, 193, 128,0,0, 13S3 
75 1080 DATA 128,158,190,169,16 

9, 162,0,0. 128. 12B. 193, 193. 16 
2B 

42 1082 DATA 55S , 128 . 0 . 0 , 128 , 12 
B, 130. 191, 130. 128,0,0.1218 

A5 10B4 DATA 128.136,156.136,13 
6, 136,0,0, 136,136, 136,136, 13 
72 

BE 1086 DATA 136.136,0.0,128.18 
B, 138.137, 138, 188.0,0. 11B9 

FB 10BB DATA 128,161,191,165,16 
S, 154,0,0, 129. 1SB, 161, 161.15 
72 

2C 1090 DATA 161,146,0,0,128,16 
1.191,161, 146,140,0,0. 1234 

9F 1095 DATA 158,161,181,165,16 
5,161,0,0, 128. 161 , 191, 165. 16 
16 

3E 1094 DATA 133,129,0.0,128,15 
B, 161, 161 , 169, 18S,0,0, 1224 

B2 1096 DATA 158.191,135.132,13 
5,191,0,0,158,128,161,191,15 

9D 1098 DATA 161,158,0,0,158,14 
4,160,161,159,159,0,0,1170 

5E 1100 DATA 159.158,191,140,14 
6,161,0.0, 12B. 161. 191, 161. IS 
35 

58 1102 DATA 160,176,0,0.128.19 

1,130,140.130.191,0.0.1246 
2C 1104 DATA 15B. 191. 130, 132,13 

6.191.0,0.128,158.161,161.15 
16 

03 1106 DATA 161,158,0,0,128,16 

1. 191 , 159, 137, 134,0,0, 1239 
4A 1108 DATA 128,158,161,169.14 

5. 174,0,0, 128, 161,191. 137, IS 
52 



30 1110 DATA 1S3, 166.0.0. 12B, 14 
6, 16S.165.16S, 1S2.0.0, 1240 

9C 1112 DATA 128,131,161.191,16 
1, 131,0,0,128.159, 160, 160, 15 
10 

24 1114 DATA 160,158,0,0,128,13 

5, 152.160. 152,135,0,0,1181 
02 1116 DATA 128,158,160.156,16 

0. 159.0.0. 128. 161. 179. 140.15 
30 

4B 1118 DATA 178,161.0.0,128,13 

1, 164, IBB. 164, 131,0-, 0,1246 
92 1120 DATA 128,163,177,173.16 

3.177,0,0,136,136,136,555,16 
44 

59 1152 DATA 136,136,0,0,0,65,4 

5,85,0,0,0,0,484 
84 1154 DATA 0,0,0,0,157,0,0,0, 

0.4,60,4, 135 
BB 1126 DATA 28,2.0,0,0,62.65,9 

3,85,65,62.0,-1 



PROGRAM: MODERN SET 



Z) 



CE 100 REM ' MODERN ' 
90 110 SA-63744 

42 120 PRINT'TSC CODE FOR SET - 

CHR$ ( 27) CHR$ ( "SA/256 ") " 

23 130 B-0 : FORX-0TO1 1 : READA : B-B 

♦A : POKESA+X . A : NEXT : SA-SA*X : R 

EADA: 1FA-BTHEN130 

04 140 IFA>OTHENPRI NT"DATA ERRO 

R IN LINE"PEEKf63)*PEEK(64)- 
256 

Bl 1000 DATA 128.128.128.128.12 

8.128. 128.0, 128, 128.172,375. 
1499 

44 1002 DATA 128.128.128.0,128. 
134.135,128,134.135.128,0,13 
06 

06 1004 DATA 128,138,186.191.13 

8.191.138,0.128.174.170.255. 
1837 

55 1006 DATA 170.186.186.0,128. 

179,187.152.132.180.179,0,16 
79 

86 1008 DATA 128.188.191,165.17 

3.144. 168.0,128, 128, 128.133, 
1674 

66 1010 DATA 131.128.128.0.128. 
188.250.225,193.128,128.0.16 

C5 1012 DATA 128.128.193.225,25 

0.188,128,0.128.170.156,190. 
1884 

D3 1014 DATA 156.170.128,0,128 

136.136,184,190,136.136,0.15 
00 

60 1016 DATA 128.128.128,208.17 

6. 128, 128.0, 128. 136. 136. 136 
1560 

19 1018 DATA 136.136.128,0,128. 
128.128,176,176.128.128.0.13 
92 

3C 1020 DATA 128.160.176.152.14 

0,130,129,0.128,184.191.169. 
1687 

27 1022 DATA 165,163,191,0,128 

128.184,191.128.128.128.0,15 
34 

81 1024 DATA 128,184.185,169.16 
9,173.175.0.128.160,169.169. 




VOI R COMMODORK SERIOUS ISERS Gt IDE 



Oil IT1LITY 



1809 

72 1026 DATA 169.191.184.0.128, 
143.140.136.184.190.136.0.16 

35 1028 DATA 128,175.173.169.16 
9.185.184.0,128.184.191,169. 
1855 

AF 1030 DATA 168,168.184.0.128. 
129,129.185.185,133.131.0.15 

40 

D2 1032 DATA 128.184.191.169.16 
9.173.191.0.128.143,139.137. 

15 1034 DATA 185.191.128,0.128. 
128.128.148.148.128.128.0,14 

40 

90 1036 DATA 128.128.128.212.18 
0,128.128,0.128.128.152.180. 

1620 

IF 1038 DATA 226.193.128.0,128. 
148 . 148 . 148 , 148 , 148 . 1 28 . 0 . 15 
43 

D4 1040 DATA 128,128.193.226.18 
0.152.128.0.128.131,129.217. 

1740 

8C 1042 DATA 217.139,143,0,129. 
158,161.173.173.169.142,0.16 

04 

62 1044 DATA 128,184.191,137,13 
7.139.191.0.128.191.185,169. 

1780 

05 1046 DATA 171.175.184.0,128. 
184.191.161.161.163.179.0.16 

97 

72 1048 DATA 128,184.191,161,16 
2,164,184,0,128,184,191.171. 

1848 

6F 1050 DATA 169,169,160.0.128. 
184.191.139.137.137.128.0.15 

42 

F9 1052 DATA 128.184.188,162.16 
1,161.185.0.128,184.191.136. 

1808 

1054 DATA 136.140.191.0.128, 
128.184.191.131.128,128.0,14 

85 

1056 DATA 128.184.184.160.19 
1.131.126.0.128.184.191.136, 

1745 

1058 DATA 140.154.185.0.128. 
184.191.160,160.176,176,0,16 

54 

1060 DATA 128,184.191.129,14 
3,129,191,0.128.184,191.129, 

1727 

D7 1062 DATA 129,131.191,0.128. 
184,191.161.161,163.191,0.16 

30 

1064 DATA 128.184.191.137.13 
7.139.143.0.128.184.191,161. 

1723 

E5 1066 DATA 169.147.175.0.128. 
184.191.137.153,171.143.0.15. 

98 

1068 DATA 128.144.166.169.16 
9.187,187.0.128.129.185.191. 

1783 

1070 DATA 129.131.131.0,128, 
184,191.160.160,163.191.0.15 

68 

Al 1072 DATA 128,152.191,160.16 
0.147.143.0.128.184.191.160. 

1744 

FC 1074 DATA 184.163.191.0.128. 
176.187.140,140,139.176.0.16 

24 



B5 1076 DATA 128.143.139.184,18 
4.140.143.0,128.160.177.185. 

FD 1078 DATA 169,165,163.0,128, 
128. 248, 255 . 193, 128, 126.0, 17 
05 

B3 1080 DATA 128.160.184,191,16 
9.171, 163.0. 128,128,192.249. 

1863 

41 1082 DATA 255.128,128.0,128. 
132 . 242 . 255 . 130 . 132 . 1 28 . 0 . 16 
58 

80 1084 DATA 136.136.136.168.18 
6 . 156 . 136 . 0 . 0 . 0 . 0 . 255 , 1309 

D9 1086 DATA 255,0,0.255.128.18 
4.191.137,137,139,191.0,1617 

9D 1088 DATA 128,191.185.169.17 
1.175.184.0.128.184.191.161. 

1867 

IB 1090 DATA 161.163.179.0.128. 
184.191,161,162,164.184.0.16 

77 

18 1092 DATA 128.184.191.171.16 
9.169,160,0,128.184.191.139. 
1814 

4C 1094 DATA 137.137.128.0,128. 
184.188.162.161.161.185.0.15 

OA 1096 DATA 128.184,191.136.13 
6.140.191.0.128.128.184.191. 
1737 

BO 1098 DATA 131.128.128.0.128. 
184.184.160.191.131.128,0.14 

93 

F6 1100 DATA 128,184,191.136.14 
0.154,185.0.128.184.191.160, 

1781 

B6 1102 DATA 160,176.176.0.128. 
184 . 191 . 1 29 . 143 . 1 29 . 191 . 0 . 16 
07 

E4 1104 DATA 128.184.191,129,12 
9.131.191.0.128.184.191.161. 
1747 

79 1106 DATA 161.163.191.0.128. 
184.191.137.137.139.143.0.15 

74 

AD 1108 DATA 128,184.191.161.16 
9.147.175.0,128,184.191.137, 

1795 

A7 1110 DATA 153.171.143.0.128. 
144. 166. 169. 169. 187. 187,0, 16 
17 

A9 1112 DATA 128.129.185.191.12 
9.131.131.0.128,184.191.160. 
1687 

01 1114 DATA 160,163.191.0.128. 
152 . 191 . 160 . 160 . 147 . 143 . 0. 15 
95 

EB 1116 DATA 128.184.191.160.18 
4.163.191.0.128.176.187.140. 

1832 

87 1118 DATA 140.139.176.0.128. 
143 , 139 . 184 . 184 . 140 . 143 . 0 . 15 
16 

C6 1120 DATA 128.160.177.185.16 
9 . 165 . 163 . 0 . 1 28 . 1 28 . 248 . 255 . 
1906 

1C 1122 DATA 193.128.128.0.128. 
160. 184. 191 . 169 . 171 . 163. 0. 16 

7E 1124 DATA 128.128.192.249.25 
5.128,128.0,128.132.242.255. 

1965 

E6 1126 DATA 130.132.128.0.136, 
136.136. 168. 186. 156,136.0.-1 



PROGRAM : ITALIC SET 



6D 100 REM * ITALIC * 
94 110 SA-62976 

42 120 PR1NT"ESC CODE FOR SET - 

CHR$ ( 27) CHR$ ( "SA/256 " ) " 
23 130 B-0:FORX-0TOll :READA:B-B 

+ A : POKESAtX . A , NEXT : SA-SA+X : R 

EADA: IFA-BTHEN130 
04 140 1 FA >0THENPR I NT"DATA ERRO 

R IN LINE-PEEK (63) *PEEK(64)' 

256 

5D 1000 DATA 128,128.128.128.12 
8.128,0.0,128,128.192.144.13 

El 1002 DATA 140,131.0.0,128.13 
3.131.128.133.131.0.0.1055 

CC 1004 DATA 144,244.156,247.15 
6,151.0.0,128.128,164,234,17 

04 1006 DATA 171,146,0,0.128.17 
6.137.173.164,131.0,0.1226 

6A 1008 DATA 128.144.172.234.17 
1.130.0.0.128.128.128.133.14 
96 

3C 1010 DATA 131.128.0.0,128,12 
8,152.164.194,129.0.0.1154 

A5 1012 DATA 128,128.192.161,14 
6.140.0.0.128.170.156.190,15 

El 1014 DATA 156.170.0,0.128.13 
6.136,190,136.136.0.0.1188 

85 1016 DATA 128.128.128.208.17 
6.128.0.0.128.136.136.136,14 

32 

El 1018 DATA 136.136,0,0.128,12 
8.128.176,176.128.0.0.1136 

88 1020 DATA 128.160.144,136,13 
2.130.0,0,128, 156,170,161.14 
45 

BO 1022 DATA 149.142.0.0.128.12 
8,160,186.167,128,0,0.1188 

52 1024 DATA 128.176.170.169.16 
9.134.0.0.128.144.161.165,15 

44 

05 1026 DATA 155,129.0.0,128,13 
6 . 140 . 170 . 157 . 139 . 0 . 0 . 1 154 

1C 1028 DATA 128.144.166.165,16 
5.153.0.0.128.156,166,165.15 
36 

OC 1030 DATA 165.153,0.0.128.16 

0.145.137.133.131.0.0.1152 
D8 1032 DATA 128.144.170.165.16 
5,154.0.0.128.166, 169.169.15 

58 

A3 1034 DATA 153.142.0.0.128.12 
8.144,148.132.128,0,0.1103 

5E 1036 DATA 128.128.208.180,13 
2,128.0.0.128.136.148,162,14 

78 

51 1038 DATA 161.129.0.0.128.14 

4. 148. 148. 148. 132.0,0. 1138 
86 1040 DATA 128.160,161,145.13 
8.132.0.0.128.128.194.153.14 
67 

A2 1042 DATA 137.134.0.0,128.15 
8,161.173,173.169.142.0.1375 

F5 1044 DATA 128.184.164.162.14 
6.174,0.0.126.176.174.165.16 

01 

A3 1046 DATA 164.152.0,0.128.15 
2.164.162.162.148.0.0.1232 



VOI R COMMODORE SERIOl'S I'SERS GIIDE 
52 



Cm ITIUTY 



9C 1048 DATA 128.156.162.162.15 
6^163.0,0,126.152.172.170,15 

55 1050 DATA 170.132,0.0,128,19 
2 . 200 . 190 . 137 . 1 29 . 0 . 0 . 1278 

9A 1052 DATA 128.204.210.210,17 
0^158.0.0.128.160,156.133.16 

15 1054 DATA 164,152,0.0,128.12 

8. 180.172. 165. 129.0.0. 1218 
05 1056 DATA 128.176,192,180.14 

1,129.0.0.128.160. 158.137,15 
29 

D7 1058 DATA 180.162.0,0.128,12 

8. 184. 166 , 165. 131 ,0,0. 1244 
1C 1060 DATA 128,188.130.140.16 

2. 156.0.0, 128. 176, 142, 132. 14 
82 

4D 1062 DATA 178.140.0,0,128.18 
4. 164. 162. 146, 140.0.0. 1242 

CS 1064 DATA 128.248.150.162.16 
2, 156.0,0,0, 136, 148,210. 1500 

A6 1066 DATA 178.158.128.0.128, 
162.158.132.130,132.0,0,1306 

58 1068 DATA 128.160,164.170,17 

0, 146.0,0,128,128,180. 174. 15 
48 

4F 1070 DATA 165.144,0.0,128.18 
4.166.160.152,166.0,0.1265 

4D 1072 DATA 128.152.166.160,14 
4. 142.0,0,128. 188. 146. 184, 15 
38 

53 1074 DATA 144.142.0.0.128,16 

0, 150, 136. 180. 130.0,0, 1170 
9A 1076 DATA 128.204,210,200,18 

8, 130.0.0.128.160. 178. 170,16 
96 

65 1078 DATA 166.146.0.0,128.22 
4.220,195.129.129.0.0.1337 

78 1080 DATA 128.200,248.206.20 
1.192.0,0.128,192.192.225,19 
12 

64 1082 DATA 157.131,0.0.128.12 

8.228.154.135.130,4.0.1195 
47 1084 DATA 136,136,136,168,15 

4,140,0,0. 136,136. 136,136. 14 
14 

1A 1086 DATA 136.136.0,0,128.15 

6. 162. 161 , 157. 163.0.0. 1199 

3E 1088 DATA 128.184.167.165.16 

5.154.0,0.128.156.162.161.15 
70 

47 1090 DATA 161,146.0.0.128.18 

4,167,161. 145. 142.0.0. 1234 

78 1092 DATA. 128 . 184 . 167 , 165 . 16 

5 . 1 29 . 0 . 0 , 128 , 184 . 135 . 1 33 . 15 
18 

5D 1094 DATA 133.129.0,0,128.15 

6,162.225.169,154,0.0.1256 

80 1096 DATA 128.184.135,132.18 

8.135,0,0,128.128.160.185.15 
03 

2C 1098 DATA 167,129.0.0.128.15 

2.160,161.153.135.0,0.1185 

9C 1100 DATA 128.184.143.148.16 

2,129,0.0,128, 184.166. 161. 15 
33 

11 1102 DATA 160.144.0,0.128.19 

0,129.142,161.158,0.0.1212 
7A 1104 DATA 128.184.135,129.18 

5.134.0.0.128.156.162.161.15 
02 

57 1106 DATA 145.142.0,0.128.18 
4,143.137,137.134.0.0,1150 



B2 1108 DATA 128.156,162,169,14 
5.174.0,0.128.184,143.153,15 

CE 1110 DATA 169.134,0,0,128,14 

4,162. 165, 165. 153,0,0, 1220 

40 1112 DATA 128.129.185.135,12 

9, 129.0.0. 128, 152, 167.160, 14 
42 

9F 1114 DATA 184.135.0,0,128.15 
2. 167.160. 144. 143.0.0.1213 

CO 1116 DATA 128.158.161.152.16 
0. 159.0.0. 128. 160. 147. 140. 14 
93 

D6 1118 DATA 140.179.128.0.128. 
182. 201 , 200. 190. 129.0.0. 1477 

66 1120 DATA 128.162.177.173.16 

3,145.0.0.136.136,136.255.16 
11 

84 1122 DATA 136.136.0.0.0,0,0. 

0,0,0.0,0.272 

8B 1124 DATA 0.0.0.0.0.0.0.0.0 
0.0.0,0 

C5 1126 DATA 0.0,0.0.0.0.0.0.0. 

0,0.0,-1 
4F 1128 DATA 128. 128 



PROGRAM: GOTHIC SET 



8D 100 REM ' GOTHIC * 
83 110 SA-61440 

42 120 PRINT"ESC CODE FOR SET - 

CHRS ( 27) CHR$ < "SA/256 " ) " 
23 130 B-0:FORX-0TOll:READA:B-B 

♦A : POKESA+X , A : NEXT : SA-SA+X : R 

EADA : I FA-BTHEN130 
04 140 I FA >0THENPRI NT"DATA ERRO 

R IN LINE"PEEK(63)tPEEK(64>- 

256 

39 1000 DATA 128.128.128.128.12 

8 . 1 28 , 128 . 128 . 1 28 , 1 26 , 1 28 . 22 
2,1630 

37 1002 DATA 239,128,128.128.12 

8.136,135.130.128.138.135,13 
0. 1685 

Dl 1004 DATA 148.254.190.148.21 

2.190.190.148.128.164.174.23 
5,2181 

Al 1006 DATA 235.186.146.128.12 

8.227.179.152.140,230.227.12 
8.2106 

2C 1008 DATA 128.146,183.237.15 

7.178.168.236.126.128.126,12 
8,1945 

IE 1010 DATA 138.135.130.128.12 

8. 128,156, 190.227, 193.128,12 
8. 1809 

C5 1012 DATA 128.128.193,227.19 

0,156,128,128.136,170,190,15 
6,1930 

AE 1014 DATA 156,190.170.136.12 

8.136.136.190,190.136.136,12 
8, 1832 

67 1016 DATA 128.128.240.224.19 

2.128.126,128.128.144.136.14 
0,1844 

A3 1018 DATA 136.136,136.136.12 

8. 126, 128, 176. 176. 192. 128. 12 
8.1728 

54 1020 DATA 128,160.176,152,14 
0. 134, 131 , 129. 128, 190. 255 , 20 



1. 1924 

54 1022 DATA 197,255,190.128.12 

8,136,196,254,191,160,128,12 
8,2091 

D9 1024 DATA 128,194.227,245,23 
3 . 239 . 198 . 128 . 1 28 . 162 , 227 , 20 
1.2310 

7A 1026 DATA 201.237.182.128.14 

4,152,148.146.255.255.176.12 
8.2152 

2C 1028 DATA 128.167.213.197,20 
5.221. 184.128, 128,190.255.20 
9.2225 

EB 1030 DATA 201.251.176.128.12 
8.130.131.243.251.167,131.12 
8, 2065 

06 1032 DATA 128,182.237,201.20 
1 . 219 . 182 . 128. 128 . 150. 175 . 20 
1,2132 

AA 1034 DATA 229.191.158.128,12 
8.128.160.160.150.130.128.12 
8.1838 

54 1036 DATA 128.128,192,180.18 

2.130,128,128.128,136.156.18 
2, 1798 

OF 1038 DATA 227.193.193,128,12 

8,148,148,146,148,148.148.12 
8,1885 

C4 1040 DATA 128,193,193,227.18 
2,156,136,128.128.136,134,16 
3.1904 

Dl 1042 DATA 235.143.134,128.12 

8.190.193.221.221,209.174.12 
8.2104 

45 1044 DATA 128.148.186,170,17 

0.190.188.144.128.130,191,19 
1,1964 

53 1046 DATA 164.162.158.156.12 

8.160,156.190.162,166.162.14 
4. 1908 

8F 1048 DATA 126.160.156.190,16 
2.165.191,191.128.156.190.17 
8.1995 

85 1050 DATA 170.238.180.128.12 

8 , 1 36 . 1 96 . 190 . 191 . 149 . 133 . 1 2 
9 . 1968 

82 1052 DATA 128,172.222.210,20 

2.254.188.132.126,130,191.15 
9,2116 

AA 1054 DATA 132.196.252,184.12 
8, 144.168. 189.187. 160,144. 13 
6.2020 

67 1056 DATA 128.160.192.200.25 

3.165.144,128.128.130.191.19 
1 , 2030 

2E 1058 DATA 168,156,180.144.12 

8.192. 162. 190.191. 144. 128.12 
8. 1911 

68 1060 DATA 128,190.158.132.14 

0. 166. 190.156. 128,190,158. 13 
2, 1868 

8D 1062 DATA 194.190.188,144,12 
8.220.190.178.171.190.158 12 
9.2080 

D2 1064 DATA 128,132.254.254.14 

6.162, 158, 140,128. 156.158. 16 
2.1978 

22 1066 DATA 146.254.254.160.12 
8.132.190,190.148,130.134.13 
2. 1998 

92 1068 DATA 128,196,174.186,17 

4 . 186 . 145 . 1 28 . 1 28 . 140 . 132 , 15 
8. 1875 

F8 1070 DATA 191.164.150,128.12 
6, 156.190. 160.144.190.190. 14 
4,1935 



VOI R COMMODORE SERIOl S I'SERS (HIDE 
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78 1072 DATA 128.132.142.158.17 
6.180.158.142.128.156,158.17 
6.1834 

E0 1074 DATA 156.176.158.156.14 
4.162.182.156.156.182.162.13 
2.1922 

44 1076 DATA 128.132.174.222.20 
8.244. 190. 158. 128. 129 , 202.20 
2.2117 

C3 1078 DATA 190.186,144.128.12 
8.128,255,255,193.193.128.12 
8,2056 

17 1080 DATA 128.208.232,254.22 
1.201,202.160.128.128,193.19 
3.2248 

75 1082 DATA 255.255.128.128.12 
8.132.134.255.255.134. 132.12 
8.2064 

69 1084 DATA 128,140.158.191.14 
0,140,140.140.152.152.152.15 
2.1785 

1C 1086 DATA 152.152.152,152.12 
8.192.168.158.145.255,190.16 
0.2024 

FC 1088 DATA 128.226.191.173.16 
5 . 159 , 138. 128 . 128, 156 . 190 . 17 
7.1959 

36 1090 DATA 255,161.146,128.12 
8,192.161.191,163,163.191.15 
8.2037 

08 1092 DATA 128,156.190.229.25 
5.229.161.128.128,192.209.19 
0,2195 

7A 1094 DATA 191,137,137.130.12 
8.188.250.195.211.250,178.12 
8.2123 

E6 1096 DATA 128.194.190.191.13 
3.194.190.156.128,192.160.19 
0 . 2046 

36 1098 DATA 191.146,128.128.12 
8 . 1 60 . 208 . 193 , 255 . 190 . 130 , 12 
8.1985 

E4 1100 DATA 128,194.255.216.18 
2,226,224,128.128.192,252,19 
0.2315 

1C 1102 DATA 227.224,192.128,25 
2, 190. 131 , 190, 156, 195, 190.15 
6,2231 

Dl 1104 DATA 194,191.191,130,19 
5.191.190.128,128.192.190.19 
1.2111 

B5 1106 DATA 201.197,190.159,12 
8, 196 . 191 , 191 . 145 . 143 . 142 , 12 
8,2011 

88 1108 DATA 128,158,191.169,16 
5,255.222,192. 192. 188,190.16 
9,2219 

4F 1110 DATA 157.183.226.128,19 
2. 182, 190.205,205, 190, 153. 12 
8,2139 

FC 1112 DATA 128,178.139,207,19 
1,191,147,129,128.188.254.19 
3.2073 

50 1114 DATA 196,254,191,128.12 
8.132.158.191.224.226.190.15 
9,2177 

8A 1116 DATA 128.158.191.196.19 
0.225,252. 191 , 128, 192.227. 21 
5,2293 

03 1118 DATA 141.220.243.227.12 
8 . 1 29 , 19 1 . 254 . 208 , 217 . 206 . 16 
6.2330 

BF 1120 DATA 128.160,210,202.23 
7 . 19 1 , 187 . 144 . 140 . 140 . 140 , 25 
5.2134 

34 1122 DATA 255.140.140,140.14 



9,149.170.170.128,128,128.12 
8. 1825 

AO 1124 DATA 128.128.126.255.25 
5 . 128, 128. 128, 149 . 149 . 170. 17 
0.1916 

3B 1126 DATA 149.149.170.170.23 
0.204.153.179.230.204.153,17 
9,-1 



PROGRAM: CONDENSED SET 



62 100 REM * CONDENSED * 
8A 110 SA-62208 

42 120 PRINT"ESC CODE FOR SET - 

CHRS 1 27) CHRS ( "SA/256") " 
23 130 B-0 : FORX-0TO1 1 : READA : 8-B 

+A : POKESA+X . A : NEXT i SA-SA+X i R 

EADA: IFA-BTHEN130 
04 140 I FA >0THENPRI NT"DATA ERRO 

R IN LINE"PEEK(63)+PEEK(64)- 

256 

40 1000 DATA 128.128.128.128.0. 
0,0.0.128.126,223.128.1119 

37 1002 DATA 0.0.0,0.135,128.13 

5,128,0.0.0,0,526 
2F 1004 DATA 255,148,255,128,0. 

0,0.0,174.235,186.128,1509 
DO 1006 DATA 0,0.0,0,243.136.23 

1,128.0.0.0.0.738 
DC 1008 DATA 255.217,166,208,0. 

0.0,0.128.139,135.128.1376 

41 1010 DATA 0.0.0.0,156.162,19 
3,128.0.0.0.0.639 

7E 1012 DATA 193,162,156.128,0, 

0,0,0,170,156,170, 128,1263 
77 1014 DATA 0,0,0,0.136.190,13 

6.128,0,0,0,0.590 
82 1016 DATA 192.240.176.128.0. 

0.0.0.136.136.136,128.1272 
54 1018 DATA 0.0,0.0.128.176,17 

6,128.0.0,0,0.608 
99 1020 DATA 176,140.131.128.0. 

0.0.0. 191, 161,191 . 126, 1246 

25 1022 DATA 0.0,0,0,164,191.16 
0,128.0.0.0,0.643 

26 1024 DATA 177.169.166,128.0, 
0 . 0 , 0 . 16 1 . 165 . 155 . 128 , 1249 

AD 1026 DATA 0,0.0.0.143.136.19 

0.128.0.0,0,0,597 
FO 1028 DATA 167.165.153.128,0, 

0.0.0,156.166.153. 128.1216 
79 1030 DATA 0.0.0.0.129.177,14 

1.131.0.0,0.0.578 
BB 1032 DATA 191.165.191,128,0, 

0,0,0,166.153,142,128.1264 
E3 1034 DATA 0.0.0.0,128.148.14 

8,128.0.0.0.0,552 
D7 1036 DATA 128.212.180.126,0. 

0,0.0,136,148. 162, 128.1222 
63 1038 DATA 0.0,0,0,148,148.14 

8,128,0.0.0,0.572 
73 1040 DATA 162.148.136.128.0, 

0,0.0.195.217.135.126.1249 
3D 1042 DATA 0.0.0,0.190.217.21 

7.222,0.0.0.0.846 
IB 1044 DATA 186.170,190.128.0. 

0,0,0.191.162.190.128,1345 
4A 1046 DATA 0.0.0.0.190,162.16 

2,128.0,0,0.0,642 
D9 1048 DATA 190,162,191,128,0, 

0,0,0.190.170.174,128.1333 
41 1050 DATA 0,0.0,0,200.190.13 

7. 128.0,0.0,0.655 



Dl 1052 DATA 222.210,254.128,0. 

0,0.0.191.130.190.128,1453 
FB 1054 DATA 0.0,0,0,165,189,16 

0.128.0.0.0,0.642 
F3 1056 DATA 160.197.253.128.0. 

0,0.0,191. 136. 162.128.1375 
78 1058 DATA 0.0.0,0.161.191,16 

0,128.0,0,0.0,640 
9C 1060 DATA 190,140,190,128,0, 

0,0,0,190,130.188.128.1284 
D6 1062 DATA 0.0.0,0,190.162.19 

0,128.0.0,0,0.670 
2E 1064 DATA 254.162,190.128.0. 

0,0,0.190. 162,254. 128. 1468 
C9 1066 DATA 0.0,0,0,190,130,13 

4,128,0.0.0.0.582 
AO 1068 DATA 174.170,186.128,0, 

0.0,0,130, 191.162.128.1269 
12 1070 DATA 0,0,0,0,158,160,19 

0,128,0,0,0.0,636 
C9 1072 DATA 158.160.158.128.0. 

0.0,0.190,152,190,128,1264 

20 1074 DATA 0,0,0,0,182,136.18 
2,128.0.0,0,0,628 

2F 1076 DATA 222,208.254,128,0. 
0,0,0, 178, 170, 166, 128, 1454 

21 1078 DATA 0,0.0,0,255,193,12 
8,128,0,0,0,0.704 

70 1080 DATA 164.190,165.128.0. 

0.0.0.128.193.255,128.1351 
3B 1082 DATA 0,0,0.0,132,191,13 

2,128,0.0.0,0,583 
16 1084 DATA 136,156.170,136,0, 

0,0,0,128,128,128.128,1110 
D8 1086 DATA 0,0,0,0.191.133.19 

1.128.0.0.0.0.643 
42 1088 DATA 191.165,187.128.0. 

0.0.0.191,161,161.128.1312 
18 1090 DATA 0.0,0,0,191.161,15 

8,128.0.0.0.0,638 
39 1092 DATA 191,165.165,128.0. 

0,0.0, 191.133.133. 128.1234 
4C 1094 DATA 0.0.0.0,191,161.18 

5,128.0.0,0.0,665 
7A 1096 DATA 191.132.191.128.0. 

0,0.0.161,191,161.128,1283 
E6 1098 DATA 0.0.0.0.176.161.19 

1.128.0.0.0.0.656 
52 1100 DATA 191.132,187.128.0, 

0.0.0. 191 . 160. 160. 128. 1277 
92 1102 DATA 0.0,0.0.191,134,19 

1,128,0.0.0,0,644 
26 1104 DATA 191.129.190.128.0. 

0.0.0.158. 161.158,128.1243 
31 1106 DATA 0,0.0.0.191.137.14 

3.128.0.0.0.0,599 
62 1108 DATA 158.161.254,192.0. 

0.0,0.191,137,183,128.1404 
A7 1110 DATA 0.0.0.0,167.165.18 

9,128.0,0.0,0,649 
00 1112 DATA 129,191.129,128.0. 

0.0.0.159.160.191,128,1215 
75 1114 DATA 0.0,0,0,159.160.15 

9.128.0.0,0,0,606 
6B 1116 DATA 191,152.191.128.0, 

0.0,0. 187, 132. 187. 128. 1296 
3C 1116 DATA 0.0.0.0.135.188,13 

3.128.0.0.0.0.586 
61 1120 DATA 185,165,163.128.0. 

0.0.0.0.0,0.0,641 
E5 1122 DATA 0,0.0,0,0.0.0,0,0. 

0.0.0,0 

8B 1124 DATA 0.0.0.0,0.0.0.0.0. 
0.0,0.0 

C5 1126 DATA 0.0,0,0.0.0.0.0.0. 
0,0.0.-1 
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The above shows the order in which 
the information defining the char- 
acters is stored. This order has been 
chosen because it makes the easiest 
(therefore quickest) conversion for 
the driving software. 
NOTE : The characters from 96 to 
127 cannot be re-defined. The 
driving software prints the normal 
MPS 803 characters. The characters 
no. 96 to 127 are those printed with 
CHR$(224)toCHR$<255). 
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NO LOAD DIRECTORY 



1/1 



When you have produce:! a 
program it is ^ise to prevent 
ether people from reading your 
disks to see -^hat is on the.*n. 
The routine presented here will 
aliou; you to stop the disk 
directory from being loaded 
into the computers memory. 

The routine Forces the disk 
drive to keep on reading the 
directory , without actually 

loading it. 

P.A.Eves 



10 PRINT "INSERT CISK - ANY '<^Y 

T~ CONTINUE" 

BZ PCKS138.0:'.JfiIT193, 1 

2c CPE-::, e, is, "io= 'VQpens.b.s, M * 

■':T-19:S-1:IS = CHPS;C: 
40 PRINTai . "Ul 5 0 "T ; S 
50 FORI-OTOl : PRINTttl , "n-R"CHRSC: 
:ZH9.S:s:- :3ET*1 . SS : E4 -ES*2S : E r 1 1 = 
AS^:ES):NEXT 

SO IFECQ^-iaTHENS-ECl? : GCT040 
70 PRir,"T#l, "B-P:5 0" : PRINTttS , CHR 
SCT? ;CHRSC1?j 

30 PRINTttl , "UH 5 0 "T; S; INPUT#1 , 
A , AS : PR I NT AS : CLDSE1 : CLCSE5 
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YC 
WRITER 



Sell your typewriter and get into serious wordproccssing 
with with YC Writer', an 80 column wordproccssor. 



p 



s 



i 



"2 

i 



eoplc who know nothing of the joys 
and tribulations of programming a 
computer and who are not interested in 
arcade games often ask. rather cynically. 
"What good are computers anyhow?" 

Of course, they do not question the 
use of the kind of computer the gas 
board, for example, employs. The use- 
fulness of this becomes clear every 
quarter when they get their gas bill. But 
what good is a home computer? 

Well. I believe there is one good, 
solid reason why nearly everyone should 
invest in a home computer: wordpro- 
cessing. Everybody who has to do any 
writing at all. be it for work or for 
pleasure can benefit tremendously from 
using a wordproccssor. Even if all you 
want to do is write some letters, you will 
not know how easy and carefree it can be 
until you have done it on a wordproccssor. 

A wordproccssor is more than just 
a souped-up typewriter or even an 



electronic typewriter. It should really be 
called a text processor", because a good 
wordproccssing program goes far beyond 
letting you enter mere 'words'. It allows 
you to build up a piece of text and then 
restructure it in any way you like. And 
all this without wasting a single sheet of 
paper. 

No more second, third and fourth 
drafts! You start by writing from the top 
of your head and correct the text as you 
go along. A wordproccssor allows you to 
develop a letter, an article or even a novel 
from its inception to its final form all in 
one go without wasting time on rewriting 
manuscript pages which have come to 
look like battlefields. The savings in time 
and material arc tremendous! 

Getting Started 

There is no belter way to find out about 
word processing than doing it. This is 



what I have written YC Writer for. to give 
you a very real taste of it. 

The first thing you will notice when 
the program has started is that the letters 
are much smaller than the ordinary C 64 
letters. This is because YC Writer uses 
a sort of microprint which is printed on 
the high-resolution screen and gives you 
80 characters per screen row. 

This is of course the number of 
characters you get on any of the 
Commodore printers. So the main 
advantage of YC Writer is that you'll get 
on paper exactly what you see on screen. 

This kind of microprint may lake a 
while to get used lo, depending on the 
kind of TV set you've got. If you are 
unhappy with the way things are and find 
it an excessive strain on your eyes, do a 
bit of experimenting with different 
colours and also with different brightness 
and contrast settings on your TV. 

To experiment with different 
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background and foreground colours hold 
down the CTRL -key and press "M". 
Now you will be prompted to enter the 
border, paper and ink colours you prefer. 
Type the number of the colour you want 
(e.g. 6 for blue - see your Commodore 
manual) and the colour will be changed 
immediately. Finally, if you arc satisfied 
with your settings, press "Y" to return 
to the text, if not. press "N" and the 
process will be repeated. 

Entering Commands 

Most commands to the program are given 
with the CTRL key held down and a 
single letter being entered, e.g. CTRL+L 
for "LOAD textfilc", CTRL+S for 
"SAVE textfile" and so on. 

Help 

If you press function key I you w ill be 
presented with the first of the two help 
pages which the program incorporates. 
The RETURN key gets you the second 
help page and lets you toggle between the 
I wo pages. Function key 1 returns you to 
the text. 

Remember, all of the letters given 
wiiii functions are to he entered with 
CTRL held down! 

Information On Screen 

The first three lines at the top arc reserved 
for information. First you get the number 
of the line and the number of the column 
the cursor is on at any moment. Enter a 
few words and you'll see what I mean. 

Next to it you get the number of 
words you have written so far. This 
wordcount is updated as you write. Later 
on when you start editing text it soon gets 
out of date. So, to get the exact wordcount 
press CTRL+U. This will update the 
number of words contained in the whole 
of the textfile. 

Next to the number of words in the 
lop line you see a "W". a "J" and a space 
in between four stars. These letters tell 
you which text entry mode is switched on. 
"W" stands for "word wrap" and "J" 
stands for "right hand justification". More 
about this and the space next to it in a 
minute. 

The line below gives you the name 
of the document you are writing. When 
you enter the program this has the default 



name "no name". You can change this to 
a 16— letter name of your own choice by 
pressing CTRL+N. Now the cursor will 
move into the right position, ready for you 
to enter the document name. 

There is a practical reason for this: 
This name will also be the filename used 
later on when you want to SAVE your 
document onto disk or tape. 

The Tabulator 

The third line at the top of the screen also 
has a practical reason beyond mere 
cosmetics: It shows you the tab position 
on each line. 

To start with there is a tab point 
every 5 characters. Press function key 5 
and the cursor will jump forward to the 
next tab position. Press function key 6 
and the cursor will jump backwards to the 
former tab position. 

You can install your own tab-position 
anywhere on the line by pressing 
CTRL+T. A "/" appears on the tab-line 
at the top of the screen where the new tab 
is. Press CTRL+T again, and the "/" 
vanishes. 

If you want a completely different 
set-up of tab-positions than the one given 
press CTRL+F. Now all the tab-points 
arc erased and. with CTRL+T you can 
make up your own tab-spacings. Press 
CTRL+F again and the default tab- 
positions arc restored. 

Entry Modes 

There are really two sides to 
wordprocessing: you want to enter text 
and you want to edit it in the most 
convenient manner possible. 

For this YC Writer has three entry 
modes: word wrap, right hand 
justification and insert. 

Word wrap means that you can write 
your text as if you had one long 
continuous line. That is, you can ignore 
the end of a line and the computer does 
the rest, [f you start a word at the end of 
the line it will automatically be moved 
onto the new line while you are writing. 

For this to work there is an extra 
keystroke at the beginning of each line: 
If you enter a letter at the beginning of 
a new line the computer will know that 
this is part of a word started on the 
previous line and will move the whole 
word onto the new line. If you enter a 



space, the cursor won't move on. because 
the computer knows that the characters 
on the end of the line above form a 
complete word and arc not to be moved 
(or "word wrapped") onto the new line. 
All this works of course only if you have 
the word wrap mode switched on. When 
the program starts, you will find it is on, 
but you can switch it on or off by pressing 
CTRL+W. 

Right Justification 

The next important entry feature is right 
hand justification. This always works in 
combination with word wrap and means 
that the line is spaced out in such a way 
that it is flush with the right hand side. 
Like word wrap it works automatically as 
you write. 

Again, you can turn right hand 
justification on or off by pressing 
CTRL+J. But note: You can have word 
wrap without justification to get the 
"typewriter look", but you can't have 
justification without word wrap. 

Insert Mode 

The third entry mode is most useful when 
you want to edit the text you have written 
and add additional words or whole 
sentences. 

For this move the cursor onto the 
paragraph into which you want to insert 
something. Then press CTRL+I. 

Now the paragraph is reformatted by 
the computer, that is. it is 'un-justified* 
so that there is at least one space at the 
end of each line. This is necessary for 
insert to work properly. Don't worry 
about this restructuring of the paragraph! 
After you have done your insert and 
switched insert off again (as you should 
every time !) the whole paragraph will 
automatically be word wrapped and 
justified again! 

Once in the insert mode you can 
enter text, but it will not overwrite other 
text. Instead the text to the right will be 
pushed along by the cursor. If there isn't 
enough space at the end of the paragraph 
it will automatically insert an empty line. 
So you can insert as much as you like. 

Do remember to switch insert off 
after you have finished! Otherwise it will 
go on wherever you put the cursor. 

If you want an empty line anywhere, 
you can insert one by pressing CTRL+A. 
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This will move ihe rest of the textlile 
down by one line. 

Erasing 

Conversely, you can erase the line the 
cursor is on by pressing CTRL+B. This 
moves the rest of the textfile into the line 
you want to be erased. 

If you want simply to erase one or 
two characters use the delete key as 
normal . 

If you want to erase a whole block 
of text quickly and efficiently there is a 
powerful block erase facility. For this 
you first have to tell the computer the first 
line of the block you want to be erased 
and then the last line. 

This is called marking out a block, 
and I mention it especially because the 
same procedure will also be used for 
marking out a block which you want to 
be moved or copied. It works like this: 

Block -set 

Move the cursor onto the first line of the 
block you want to mark out. Press 
CTRL+G. You will notice that in the 
information header at the top of the screen 
a remark has appeared, tor example: 
"Blk -start: 4". This is to remind you that 
you have marked out the beginning of a 
block starting at line 4. 

Next move the cursor to the last line 
of the block you want to mark out and 
press again CTRL+G. Now the message 
"Blk-end: 10" will appear at the top of 
the screen. 

You have now set a block starting at 
line 4 and ending at line 10. inclusive. 
This is now the "current block". Thus a 
block always goes from the beginning of 
one line to the end of another. 

If for any reason you are not happy 
with the parameters you have given press 
CTRL+G again and the info at the top 
of the screen will be erased so that you 
can start again. 

To erase the block you have marked 
out. simply press CTRL+K. 

If you want to get rid of the whole 
textfile and start afresh press CTRL+E. 
Since this is a pretty final command there 
is a safety-catch built into it: You will 
be asked if you arc sure about erasing 
everything. If you are not. press "N" and 
no harm will be done. If you are certain, 
press "Y" and not only will the whole 



of the textfile be erased but the program 
will reset as if you just have started it off. 

Moving and Copying 

If you want to move the current block to 
somewhere else in the textfile. move the 
cursor to the line above the one you want 
the block moved to and press (TRL+O. 

Similarly, if you want to copy the 
block: bring the cursor to the line you 
want and press CTRL+H. 

You will notice that after block 
erasure and block move the messages at 
the top of the screen will vanish. Not so 
after block— copy! This is so that you can 
copy the block you have chosen as many 
times as you wish. But this only works 
of course, as long as you don't do any 
more editing. If you do. the position of 
the block may have changed so that you 
will get something different copied out! 

Formating Text 

At any given time you can reformat a 
paragraph to have it right hand justified 
or not. CTRL+C un-justifies the para- 
graph the cursor is on, while CTRL+D 
justifies it. 

For all this.and the insert mode, to 
work properly the computer has to know 
where a paragraph starts and ends. So 
there is an important rule: A paragraph 
has to be started with an indent of at least 
two spaces! 

Other word processors use formating 
characters to mark out the beginning or 
the end of a paragraph. With YC Writer 
I wanted to have no distracting formating 
characters on screen. For this to work, 
you have to obey the above rule. A small 
price to pay. don't you agree? 

Margins 

Impressive as 80— columns on screen and 
on paper are. with most Commodore 
printers it looks rather cramped because 
it fills nearly the whole width of an A4 
sheet. This doesn't look very good if you 
are writing a letter you want to create a 
good impression. 

For this reason I was determined to 
include a margin setting facility in YC 
Writer. It only works on fresh textfile 
before you have entered any text. You have 
to stick with the margins you have chosen 
throughout the textfile and can't change 



them afterwards. 

Let's say you want a left hand margin 
of 10 characters. Put the cursor into the 
right position (2 tab— positions with F5) 
and press CTRL+X. 

The margin is demonstrated 
graphically by the space on the left being 
filled and by the cursor position becoming 
column 0. 

If you now want to set a margin of 
10 characters to the right, again place the 
cursor at the appropriate position and 
press CTRL+Y. A similar thing will 
happen. 

For technical reasons there is a rule 
(more rules!) to all this: The left margin 
has to be set on an even numbered 
column, while the right margin has to be 
set on an odd numbered column! 

Saving and Loading 

Once you have written your document the 
first thing you want to do it is SAVE it 
on disk or tape. 

It is a good idea to do this at regular 
intervals. Powercuts, however brief, are 
not an unknown thing and it takes only 
a few cycles of no electricty and hours of 
your work may be down the drain! 

Saving a document is very straight 
forward. After you have given it the name 
you want as 1 have already described: 
Press CTRL+S. 

In order to make the program work 
tor tape as well as disk, so you don't 
always have to answer the annoying 
question: "Tape or Disk?", you can switch 
the program into the tape or disk mode 
by POKEing location 8010 from Basic 
and then saving that version. 

As a matter of fact, you only have to 
do this POKE if you are using tape. 
Simply POKE 8010.1. If. for any reason, 
you want to revert to disk. POKE 8010.8. 

The disk version of the program 
includes a replace facility. You can use 
this if you have already saved a certain 
document and want merely to replace it 
with a changed version. 

Since there is a lot of discussion 
going on in the C 64 community about 
the safety of the replace facility and I 
seem to belong to the 2 percent of 
disk— drive owners where it isn't safe to 
use, I have circumnavigated this sordid 
area by doing the replace in YC Writer 
with a combination of scratch and SAVE. 
Better safe than sorry! 
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Printout 

Finally, you will naturally want your 
document printed out. 

This is very easy with YC Writer: 
Simply get your printer switched on and 
ready and then press CTRL+P. The 
whole of your document will he sent to 
the printer as it appears on screen. 

Many word processors have addi- 
tional print options, like page-numbers, 
footers, headers and so on. I didn't have 
enough time in developing this program 
to give you anything but a straight forward 
printout. 1 also thought that this is a nice 
little programming job you could easily 
do yourself in Basic. 

Incidentally, you can quit the 
program at any given moment by pressing 
function key 7. And you can re-enter it 
by entering SYS 8050. 

The is some 8k of memory empty for 
your own programs. The tcxtfile starts in 
memory at location 16020. 

There textfile is limited to 300 lines. 
Not quite enough for "War and Peace', but 
remember Tolstoy s textfile was limited to 
one sheet of foolscap and just think of all 
his corrections! 



Getting it all in 

Entering the programs. 

1) Type in each of the programs 
presented hBre separately 
using the SYNTAX CHECKER 
Found on the LISTINGS page. 

2) IF using cassette SAUE 
WRITER BOOT on a sBperate 
cassette to the other 
programs. , 

3) LOAD and RUN YC WRITER A & B. 
When B has Finished It will 
SAUE a new program out. IF 
using tape this should be 
SAUEd aFter WRITER BOOT . 

45 LOAD and RUN YC WRITER C to 
YC WRITER O. When Finished 
a second program mill be 
SAUEd. IF using tape this 
should be SAUEd after the 
program From 3. 

S) To RUN the program simply 
LOAD end RUN WRITER BOOT. 
This will LOAD the other two 
parts and start the program. 



PROGRAM : YC WRITER A 



SF 10 BL-34 :LN-S0 : SA-4915 

s 

5B 20 FOR L-0 TO BL:CX-0;FOR D- 

0 TO 15 : READ A: CX-CX*A : POKE 

SA-L"16+D,A:NEXT D 
A5 30 READ A: IF A><CX THENPRINT 

"ERROR IN LINE";LN*CL*10) : ST 

OP 

40 40 NEXT L; END 

77 50 DATA 173,537,3,501,8,240, 
3,76, 150,31,56, 173,233,3,537 
,53S,2023 
4C 60 DATA 3,133,181,173,234,3, 
237 , 236 , 3 , 133 , 1 82 , 530 , 161 . 20 
8,2,230,5369 
18 70 DATA 185,165,157,133,68,1 
33, 169, 133, 179,56, 165, 166,55 
9,172.133,87,2357 
*C B0 DATA 133,168,133,178,176, 
6, 198.88, 198, 169, 196,179,24, 
165, 178, 109,2300 
50 90 DATA 58,31,133,178,144,2, 
230 , 1 79 , 56 , 1 73 , 64 , 31 , 229 , 1 78 
,133,73,1692 
35 100 DATA 173,65,31,229.179,5 
,73, 144, 14.24, 165. 176, 109,57 
,31, 133, 1610 
13 110 DATA 178,144,259,230,179 
, 176, 225. S6, 165. 178,529,87, 1 
33,92, 165, 179,564S 
r B 150 DATA 529,88,133,93,24,16 
5,168,101,181,133,89.165,169 
,101,182,133,2154 
31 130 DATA 90,32,0,35,32,37,19 
3, 144, 18,24, 173,235,3, 101,18 
1 ,133, 1431 
57 140 DATA 87,173,236,3,101,18 
5,133,88,76, 165, 192, 173, 53S , 
3, 133,87,5067 
AD 1S0 DATA 173,236,3.133,88,16 
5, 168.133,89,165, 169,133.90, 
165, 181 , 133,2224 
F5 160 DATA 92,165,185,133,93,3 
2 , 0 , 35 , 56 , 173 , 64 , 31 , 259 , 168 , 
133,73,1659 
26 170 DATA 173 , 65 , 31 , 559 , 169 , S 
,73,176,18,54.165,168,101,18 
1,141.64,1783 
70 180 DATA 31.165,169,101.182, 
141,65,31,76,236, 192,54,173, 
64,31 , 101, 1782 
6B 190 DATA 181,141,64.31,173,6 
5,31,101, 185, 141,65,31,35,37 
, 193, 144, 1612 
El 500 DATA 34,54,173,235,3,101 
,181.141,535,3, 173.236.3,101 
,182.141,1966 
D6 210 DATA 236,3,24,173,533,3, 
101,181.141,233,3,173,534,3, 
101, 185.5024 
50 220 DATA 141,234,3,173,232.3 
.240,3.76,79,37, 165. 171,133, 
91,35,1813 
IS 230 DATA 180,45.76.120,31,56 
, 173,235,3,229,168. 133, 73, 17 
3,236,3, 1934 
40 240 DATA 259,169,5,73,96,32, 
145, 178,500,192, 16,508,249,3 
2,90, 193,2107 
52 250 DATA 169,13,32,210.555.3 



5,210.255,96,59,78.84,69,85. 
32,70. 1756 

ED 260 DATA 73,76,69,78,65.77,6 

9,58,32,0,169,0,75.98,193,76 
,1209 

B6 570 DATA 164,193,35.68.229,5 

4,162,15,160,0,35,540,555,16 

9,147,160,2047 
53 2B0 DATA 193.32.30.171,169,9 

7,133,178,169,31,133,179,160 
.0,169,32,1876 
80 290 DATA 145,178,200,192,16. 

508,549,35, 164, 193,169, 13,35 

.210,255, 32, 55BB 
53 300 0ATA 210,255.96,69,76.84 

,69,85,32,70,73,76,69,78.65, 

77. 14B3 

A7 310 DATA 69,58,32,0,169,0,13 
3 , 204 , 70 , 207 , 32 , 228 , 555 , 240 , 
245,201,2143 
64 350 DATA 17 , 540 , 24 1 , 201 , 14S , 
240,237,72.56, 165 , 21 1 , 233 , 16 
,168,104,166.2515 
EE 330 DATA 211.224,16,540,50,1 
44,48,192, 16,176,25,201, 13,2 
40.61.32.1BB9 
CO 340 DATA 210.555.501,50.540, 
47 , 501 , 32 , 144 . 502, 501 , 159 . 14 
4,5.73, 128,2229 
C5 3S0 DATA 145,178,208,192,35, 
528, 255 , 240 , 251 , 201 , 13 . 240 . 3 
1 ,201 , 50,240, 2675 
DE 360 DATA 222,201,157,540.218 
. 208 , 237 , 201 , 1 3 , 240 , 1 7 , 201 , 5 
0,540,165,201,5781 
BD 370 DATA 157,540,161,208,202 
i 136, 169,32, 145.178,208,152. 
162,1,134,204,2489 
3E 380 DATA 202.134,207,96.0,0, 

0.0,0,0,0,0,0,0,0,0,639 
D4 390 DATA 0,0,0,0.0,0,0,0,0.0 
.0,0,0,0,0,0,0 



PROGRAM: YC WRITER B 



C0 10 BL-1S2 :LN-50 : SA-497E 
9 

5B 20 FOR L-0 TO BL:CX-0:FOR D- 

0 TO 15 : READ A : CX-CX-A : POKE 

SA-L"16+D,A:NEXT D 
AS 30 READ A: IF A><CX THENPRINT 

"ERROR IN LINE";LN-CL*10):ST 

OP 

AC 40 NEXT L:PRINT"CD0WN2]GET R 
EADY TO SAUE AND PRESS A KEY 
■•:PQKE1SB,0:WAIT198. 1 
A5 45 POKE43,0:POKE44,192:POKE4 
5 , 27 : P0KE46 , 204 : X-PEEKC 1865 : 
SAUE"WRITER1".X 
69 50 DATA 120,32,65,196,32,230 
, 195,32, 10,196, 169,0. 141, 192 
,2, 169, 1778 
51 60 DATA 165,141,20,3,169,194 
, 141 .51 ,3, 169,535. 141,39,3, 1 
69,197,1809 
61 70 DATA 141,39,3,32,155,195, 
88 , 96 , 173 , 195 , 2 , 240 , 3 , 76 , 41 , 
195,1668 

86 60 DATA 206,184,2,540.79.169 
,50.505,184,2,540,3,76,41 , 19 
5, 169,5045 
IF 90 DATA 1,141,186,2,165,551, 
141, 188.5, 165,255,141,189,5, 
173.167.5166 
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8A 100 DATA 8,141, 190,2,133,251 
, 173,169,5, 141 , 191 ,8, 133,555 
,32,214.5057 
96 110 DATA 195.160,7,177,251,1 
S3, 193.2, 174,171,2,208,5.9.2 
40, 76.2023 
68 120 DATA 241,194,9.15,145,25 
1, 136, 16,234,32,222,195, 169, 
50, 141 , 184, 2204 
CC 130 DATA 2,78.31,195,169.0,1 
41, 186,2, 173, 190,2, 133,251, 1 
73,191,1915 
A6 140 DATA 2 , 133 , 2S2 . 160 , 7 , 185 
.193.2, 145,251 , 136. 16,548, IB 
9,70,141,2110 
55 150 DATA 184,2,173,188,2.133 
,251 , 173, 189,2, 133 , 2S2 , 32 , 23 
4,255, 165.5368 
E9 160 DATA 204,508,41,198,205, 
208,37, 169,20,133,205, 164.21 
1,70,207,174,5454 
01 170 DATA 135,2,177,209,176.1 
7 , 230 . 207 , 1 33 , 206 , 32 , 36 , 234 , 
177,243, 141 ,2355 
BF 180 DATA 135,2,174,134.2,165 
. 506 , 73 . 1 28 . 32 , 28 , 234 . 165 , 1 , 
41 , 16. 153G 
9C 190 DATA 240.10,160,0,132,19 
2, 165, 1,9, 32, 20B, 8, 165, 192.2 
98,6, 1758 
89 500 DATA 165,1.41,31,133,1,3 
2,135,234,202,189, 119,5,201, 
140, 508, 1834 
54 510 DATA 53 , 198 , 19B , 173 , 17 , 5 
08 , 4 1 , 35 , 208 , 6 , 35 , 152 , 195 , 76 
, 149, 195, 1903 
CC 220 DATA 32 , 1 82 , 19S , 1 69 . 14 , 3 
2.202,241,76, 126,234, 173.2,2 
21 .9,3, 1911 
C5 230 DATA 141,2,251,173,17.20 
8.9,35. 141 , 17,208, 173,0,221, 
41 ,555. 1856 
5A 540 DATA 141,0.221,169,56,14 
1,24.508,96, 173,2,221,9,3, 14 
1,2, 1607 

33 250 DATA 221,173,17,208.41,2 
23, 141 , 17,208, 173,0,251 ,41 ,2 
55,9,3, 194B 
IE 560 DATA 141,0,551.169.21,14 
1 , 24 , 208 , 96 . 1 20 . 1 65 , 1 , 41 , 253 
,133,1,1735 
94 270 DATA 96,165,1,9.2,133,1. 
88,96, 169,0. 133,251.169,224, 
133, 1670 

52 280 DATA 552.160,0,169,0,145 

. 251 , 165 , 551 . 201 , 63 , 208 , 7 , 16 
5,255,501,5490 
39 590 DATA 2S5 , 208 , 1 . 96 . 230 , 25 

1 . 508 . 5 , 530 . 555 , 76 , 540 .195.1 

69,0, 133.5S46 
99 300 DATA 251,169,204,133,252 

,160,0,173,33,208,41,15,133, 

253,173, 134,2332 
6B 310 DATA 2,10,10,10,10,41,24 

0.5,253, 145,251, 166,251,224, 

232,208,2058 
Fl 320 DATA 7.166,252,254.207,2 

08 , 1 , 96 , 230 . 25 1 , 208 , 2 , 230 , 25 

2,76,38,2448 
F2 330 DATA 196,169,0.141,167,2 

, 169,224, 141,168.2,169,0,141 

, 159,2, 1860 
D4 340 DATA 169,204,141,170,2,1 

69,0. 141 ,171,2,96. 169,0, 141 , 

173,2, 1750 
0B 350 DATA 32,214,195,169,123, 

133, 251 . 169., 202 , 133 , 252 , 24 , 1 

4, 172.2.46.2131 



06 360 DATA 173,2,24,14,172,2,4 

6, 173.2,24,173, 172 , 2 , 101 . 251 

, 133, 1464 
77 370 DATA 251,173,173,2,101,2 

55, 133,555,173.167,2,133.253 

, 173, 168,2,2408 
AE 380 DATA 133,254,173,171,2.2 

08,68, 160,0, 162,4, 177,253.41 

, 15, 141, 1962 
21 390 DATA 172,2,177.251,41,24 

0 . 1 3 , 172 , 2 , 145 . 253 . 230 , 553 . 2 

08,5,530,2391 
FC 400 DATA 254.177.253,41.15.1 
41,172,2,177,251,10,10,10,10 

, 13, 172,1708 

15 410 DATA 2,145,253,230,253,5 
08 , 2 , 230 , 254 . 230 ,251, 208 ,2,2 
30.252.202,2952 

6A 450 DATA 508,201.238,171,2,3 

2.222, 195,76,35, 197, 160,0, 16 

2,4, 177,2080 
D5 430 DATA 253,41.240,141,172, 

2, 177,251 ,74,74,74,74, 13, 172 
,2, 145, 1905 
55 440 DATA 553,530,553,508,2,2 

30,554, 177,553,41 ,540, 141 . 17 

2,5, 177,551 ,5884 
B3 4S0 DATA 41.15,13,172,5,145, 

253 , 230 , 253 , 208 , 2 , 230 , 254 . 23 

0,551,508,5507 
FE 460 DATA 2.530,555.502,208,2 

0 1 . 165 , 553 . 1 4 1 , 167 , 2 . 165 . 254 
.141,168,2,5553 

16 470 DATA 206,171,2,32,222,19 
5, 173, 169,2, 133.251 , 173, 170. 
2, 133,252,2286 

AE 480 DATA 160,0,173,134,2,10, 

10, 10, 10, 141 , 175,2, 177,251 ,4 

1, 15, 1308 
CE 490 DATA 13,175,2,145,251,17 

3, 171,2,208,8,238,169,2,208, 

3,238,2003 
6F 500 DATA 170,5,96.169,0.133, 

551,54, 105,64, 133,553, 169,55 

4,133,555,5178 
C6 510 DATA 105,1,133,554.35,51 

4, 195, 150,0, 177.553, 14S.5S1 , 

165,253,201 ,2S39 
45 520 DATA 63.208,6,165,254,20 

1 , 255 , 240 , 1 5 , 230 , 251 , 20B , 2 , 2 

30.252,230.2810 
36 530 DATA 2S3, 208, 2, 230, 254, 7 

6, 105, 197,38,552, 195. 169,0,2 

30,251 ,208.2629 
94 S40 DATA 2,230,252,145,551,1 

66 , 55 1 , 554 , 63 , 508 ,6.166, 252 , 

224,25S,240,293S 
EB 550 DATA 3,76,138,197,169,0, 

133,251,24, 105.40, 133.253, 16 

9,204,133,2028 
C5 560 DATA 252,105,0,133,254,1 

77, 5S3. 145,551, 165,253,201,2 

32,50B,G, 165.5B00 
82 570 DATA 554,501,507,240,15, 

230 , 55 1 , 508 . 5 . 530 . 252 , 230 . 25 

3,508,5,530,3013 
3E 580 DATA 554.76.178.197,169. 

0, 141, 167,2, 169,254, 141 ,168. 

8, 169, 198,2279 
CF 590 DATA 141.169,2,169,207,1 

41, 170,2. 169,0, 141 ,171,2,96. 

141,172,1893 
CF 600 DATA 2,72,138,78,152,72, 

165. 154.201,3,240,8,104, 168, 

104. 170, 1825 
4E 610 DATA 104,76,202,241,169, 

1, 141 , 198,8, 173, 186,8.840,30 
. 169.0. 1928 



46 620 DATA 141,186,2,173,190,? 
, 133 , 251 , 173 , 191 , 2 , 133 . 252 . 1 
60, 7, 185,8181 
2C 630 DATA 133 , 8 , 14S . 851 , 135 , 1 
6,248. 169,51. 141,184,2. 173, 1 
72,8,801 .2086 
69 640 DATA 255,808,8,169,156,1 
4 1 , 172 , 2 , 76 , 79 , 198 , 201 , 884 , 1 
44,9,56.2068 
11 650 DATA 233,64,141,172,2.76 
,79,198,201,198,144.6.56,833 
,96,141,2034 
28 660 DATA 172.2,201,13.508,6, 
32,546,501,76,238,201.201 , 17 
.808, 117,2139 
OB 670 DATA 173,168,5,501,554,1 
44,73, 173, 157.2,201.0, 144,66 
,173,171,2112 
03 680 DATA 2,141,178,2,173,167 
,2,141, 174,2, 173. 158.2, 141 . 1 
75,2, 1643 
6B 690 DATA 173.169,2,141,176,2 
, 173,170,2, 141 , 177.5,35,60,1 
97, 173, 1810 
4A 700 DATA 178,2.141,171,5,173 
, 174,2, 141 , 167.2, 173, 175,5, 1 
41.168.1B15 
77 710 DATA 2,173,176,2,141,159 
,2, 173, 177,2, 141 , 170,2, 76,20 
7, 19B, 1B11 
A6 720 DATA 24,173,167.2,105,54 
.141.167,2,173,158.2,105,1,1 
41 , 168, 1603 
69 730 DATA 2,24.173,169,2.105, 
40, 141, 169,2, 173. 170,2, 105,0 
. 141 . 1418 
BC 740 DATA 170,2,76,238,501,50 
1, 19,208,6, 32,62. 196,76,238, 
201,201,5157 
05 750 DATA 50 , 240 . 3 , 75 , 24B , 199 
,173,167,5,141, 176,5, 173, 168 
,5. 141 , 1931 
93 760 DATA 177,5,173,169,5,141 
,178.8,173, 170,8,141,179,8.3 
2,246, 1789 
75 770 DATA 501,173,176.2,141,1 
67,2, 173,177,2,141, 168,2, 173 
.178.2,1878 
AE 780 DATA 141,169,2,173,179,2 
. 141,170,2, 162,8. 160,0,32,21 
4, 195, 1750 
F3 790 DATA 173,171,2,508,77,17 
3,167,5,201.0,208, 13. 173,168 
,2,201, 1939 
4D 800 DATA 554,508,6,38,852,19 
5 , 76 , 538 , 501 , 56 , 173 , 169 . 8 , 83 
3, 1, 141,8177 

66 810 DATA 169,2,173,170.5,533 
,0, 141 , 170.5, 56. 173, 176,5,53 
3, B, 1710 

9A 850 DATA 141,175,2,141,167,2 

,173, 177,2,533.0, 141 . 177,5,1 

41,168,1843 
E4 830 DATA 2 , 173 , 176 , 2 . 1 33 , 5S3 

,173, 177,5,133,254, 177,253,4 

1 ,240, 141 , 2330 
FB 840 DATA 162.2,173,174,5.133 

,851, 173, 175,5. 133.555, 140, 1 

75,5.56.5022 
C9 850 DATA 155,251,233,8,133,5 
51, 165,555.233,0, 133,258,177 

,851,24,46,2574 
Al 860 DATA 172,2,45,46.175,5,4 

5,46, 175.2,45,46, 175,5,45,46 

, 1048 

CB 670 DATA 172,8,145,251,46,17 
2, 2,46, 172, 2.46, 172,8,46, 172 
.8, 1450 
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6C 880 DATA 165 . 851 , 20S . 17G , 2 , 2 

08,200, IBS, 252.205, 177,2,208 

,193,173,171,2753 
□7 B90 DATA 2,208.9,177,253,11, 

IS, 13,182,2, 145,253,238. 171, 

2,208, 1922 
9A 900 DATA 3,238,175,2,238,176 

,2,20B,3,23B, 177,2,202,240, 1 

1,173,8086 
BF 910 DATA 171,2,240,3,76,111, 

199,76,94, 199, 32,222, 195, 206 

, 171 ,2, 1999 
7C 920 DATA 240,6,239,171,2,238 

, 171 ,2,76, 238,201 , 201 , 29 , 20B 

,59, 173.22S3 
87 930 DATA 171,2,208,6.238,171 

,2.76,238.201 .206, 171,2.24, 1 

73, 167,2056 
A2 940 DATA 2,105.8,141,167,2,1 

73, 168,2,105,0,141 , 16B, 2. 238 

, 169, 1591 
F9 950 DATA 2,208.3,238,170,2,1 

73, 167,2,201.64,208, 10, 173, 1 

68,2,1791 
4D 960 DATA 201,255,208,3,32.80 

, 1 97 , 76 , 23B , 20 1 , 20 1 , 14 1 , 208 , 

6,32,246,2325 
AB 970 DATA 201,76,238,201.201, 

1 45 , 20B , 53 , 1 62 . 225 , 236 . 1 68 . 2 

, 144,9,208,2477 
SE 980 DATA 41,174,167,2,224,64 

, 144,34,56, 173, 167,2,233,64, 

141,167,1853 
4C 990 DATA 2,173,168,2,233,1,1 

41, 168,2,56, 173, 169,2,233,40 

, 141 , 1704 
«8 1C00 data 169,2,173,170,8,83 

3 , 0 , 141 , 170 , 2 , 76 , 23B , 201 . 201 

,147,208,2133 
36 1010 DATA 12.32,230,195,32,1 

0, 196,32,62, 196,76,23B,201,2 

01,148,240,2101 
BB 1020 DATA 3,76,114,201.173,1 

67,2, 141 , 176,2, 173, 168,2, 141 
, 177,2, 171B 
SB 1030 DATA 173,169,2,141,178. 

2,173, 170,2,141,179,2.32,246 
,201 . 173, 1984 
EF 1040 DATA 176.2,141.167,2,17 

3, 177,2, 141, 168,2, 173, 178, 2, 

141 , 169, 1B14 

23 10S0 DATA 2.173,179,2.141,17 
0.2, 173, 167, 2. 133, 2S1 . 173, 16 
8,2, 133, 1871 

3A 1060 DATA 252,160,0,140,172, 

2, 162,8,32,214, 195,173, 171 .2 

,240,9, 1932 
7D 1070 DATA 177,251,141,182,2, 

41, IS, 145,251, 177,251,24, 110 

,172,2,106,2047 
0B 1080 DATA 110,172,2,106,110, 

172,2. 106, 110. 172,2, 106, 110. 

172,2,145,1599 
5F 1090 DATA 251.110,172,2,110, 

172,2,110,172,2, 110. 172,2,24 

,165,251,1827 
7D 1100 DATA 105,8,133,251,165, 

252, 105,0, 133,252.165,251,20 
S,174,2,20B,2409 
F4 1110 DATA 200,165,252,205,17 
5 , 2 , 209 , 193 . 173 , 171 , 2 , 240 , 17 

, 173, 176,2,2354 

24 1120 DATA 1 33 , 2S1 , 173 , 177 , 2 , 
133,252, 173,182,2.41,240, 145 
,251,238, 176,2569 

C7 1130 DATA 2,208,3,238,177,2, 
173, 176,2, 133,251,173,177,2, 



133,252,2102 
2C 1140 DATA 23B , 174 , 2 . 208 , 3 , 23 

8, 17S, 2, 140, 172.2. 173, 171.2, 

240.9,1949 
09 1150 DATA 177,251,141,182.2, 

41,15, 145,251,202,240,3,76.2 

30,200,32,2188 
DD 1160 DATA 222,195,76,238,201 

, 201 , 157 , 208 . 68 , 1 73 , 1 71 , 2 , 24 

0.6,206.171.2535 
4E 1170 DATA 2.76,238.201,173,1 

67,2,201 ,0,208, 10 . 1 73 , 168 , 2 , 

201 ,224,2046 
0B 1180 DATA 208 , 3 , 76 , 23B , 201 , 2 

3B, 171, 2, SB, 173, 167,2,233,8, 

141,167,5884 
BA 1190 DATA 2,173.168,2,233,0, 

141, 168,2, 56, 173,169,2,233, 1 

, 141 , 1664 
36 1200 DATA 169,2,173,170,2,23 

3,0, 141 , 170.2,76,238,201 .201 

, 160, 20B. 2146 
CG 1210 DATA 5,169,32,141,172,2 

,201, 161 , 144,5, 169, 12B, 141, 1 

72,2,201 , 1845 
4A 1220 DATA 32,144,30,201,129, 
1 76 , 26 , 56 , 233 , 32 , 1 4 1 , 172 , 2 , 3 

2,88, 196, 1690 
2A 1230 DATA 173,167,2.201,64,2 

08, 10. 173, 168,2,201,255,208. 

3, 32,80, 1947 
42 1240 DATA 197,169,0,141,192, 

2,76,219, 197. 169,0, 141 , 174,2 
, 169,224,2102 
E2 1250 DATA 141,175,2.162,0,17 

3.175,2.205, 16B, 2, 111, 12.208 
.31,173,1773 
26 1260 DATA 171,2,205,167,2,24 

0.2, 176,21 ,24. 173, 174.2, 105, 

64, 141 . 1672 
54 1270 DATA 174.2.173,175,2,10 

5 . 1 , 141 , 1 75 , 2 . 232 , 76 . 2 , 202 , 1 

73, 172. 1807 
A6 1280 DATA 2.201.118.240,72,2 

01,20,240,68, 173, 174,2,141, 1 

67,2, 173,2024 
77 1290 DATA 175,2,141,168,2,16 

9.0, 141, 171,2, 169,0, 141 , 169, 

8,169. 1621 
D9 1300 DATA 201,111,170,2,232. 

202 , 240 , 20 , 24 , 173 , 169 , 2 , 105 . 

40,141.169,2034 
15 1310 DATA 2,173,170,2,105,0. 

141, 170,2,76.82,202. 173, 167. 

2,201 . 1666 
E6 1320 DATA 64,144,10.173,168. 

2,201 ,255,208,3.32.80,197.96 
,0.0,1633 
26 1330 DATA 0,0, 102, 102,6^,96.8 

5 , 0 , 0 , 0 , BS , 245 , 9S , 8S , 39 , 1 70 , 

1110 

EB 1340 DATA 115,226.234,242,79 
,B7. 4. 164, 169. 112,36,0,0.0. 1 

B. 68, 1SS4 
20 1350 DATA 68.33,66,17,17,36, 

0, 150,246. 144 , 2, 39, 34 , 0,0, 0, 

852 

28 1360 DATA 3,52,0,7,0,0.0,0,6 
,96, 17.34,68, 136, 105, 189, 713 

7B 1370 DATA 153.96.38,34,34,11 
2,105, 18,72,240,113,39, 18,64 
, 19, 121, 1276 

5B 13B0 DATA 241,16,116.71,17.9 
6. 19,78, 153,96,211.34.68,64. 
105, 150, 1564 

DE 1390 DATA 153,96,105,151,18, 



64,6,96,6,95,6,96,6.100,18,7 
2, 10B9 

49 1400 DATA 56,16.0.112,112.0, 
132,33,36, 128,37, 18.32,32.10 
5, 1B7, 1046 
F0 1410 DATA 136,112,0,113,117, 
112,68. 117, B5, 112,0, 116,68, 1 
12, 17. 117. 1402 
91 1420 DATA 85,112,0,117,116,1 
12,3,68,100,64,0, 117,87,23,6 
8, 117, 1189 
EB 1430 DATA 85.80,32,34,34.32, 
32 , 34 . 34 , 36 . 69 , 96 , 1 0 1 , B0 . 68 , 
68,905 

El 1440 DATA 68,96,0,159,153,14 
4, 0, 117, 85,80, 0,1 17. 85. U2.0 
.117,1333 

C7 1450 DATA 87,68,0,117,87,17, 

0. 116.68.64.0. 116.113.112.68 
, 116, 1149 

A9 1460 DATA 6B , 1 12 . 0 , 85, B5 , 1 12 
,0,85.85,32.0. 153, 1S9, 144.0, 
BS, 1205 

90 1470 DATA 37.80.0,65.87,23,0 
, 113.36, 112, 116, 102, 102, 112, 

37,79,1123 
48 1480 DATA 68.240,115,51,51,1 

12,2. 114,34.34,0,79,64,0,0. 1 

5,979 

0C 1490 DATA 240,0,37,87,85,80, 
101,87,85.96,117,69,69, 112,1 

01 , B5, 1450 

OS 1500 DATA 85,96,116.71.68,11 

2,116,71,68,64, 117,71,65,112 

.85.87, 1^24 
BA 1510 DATA 85.80,114,34,34,11 

2, 114,34,42,224,85,86, 101 ,80 

,68,66, 1361 
86 1520 DATA 68,112,159.153,153 

, 144, 1S7.223, 1B7, 144, 117,85, 

85.112,117,87,2103 
0F 1S30 DATA BB . 64 , 1 17 , 85 , B5 , 35 

. 117,87.101,80, 116,71,17, 112 

,114,34,1303 
IB 1540 DATA 31,32,65,85,85,112 

.85,85.85, 32, 153, 153, 1S9, 111 

,8S,B2, 1196 
5A 1550 DATA 37.80,85,85,31,32, 

113.18,68,112,102,111,216,10 
2.16S, 165, 1555 
7D 1560 DATA 1B5 , 165 , 102 , 102 , 10 
2, 102,0,2S0, 170, 160,255, 119, 

51, 17,255, 2SS, 2270 
17 1S70 DATA 255,255,0,0,0,0,0, 

0,0,0,0,0,0,0,0.0,510 



PRDGRAP1 : YC WRITER C 



11 10 BL-49 :LN-S0 : SA-5731 

SB 20 FOR L-0 TO BL:CX-0:FOR D- 
0 TO 15: READ A : CX-CX+A : POKE 
SA*L*16+D, A : NEXT D 

A5 30 READ A: IF AXCX THENPRINT 
"ERROR IN LINE";LN+(L»10):ST 
OP 

40 40 NEXT L: END 

3F 50 DATA 76.105.22,76,206,23, 
32,206,23, 160,0, 140,232,3,13 
2, 181, 1617 

5E 60 DATA. 136,186,200,140.238, 
3, 160.0, 177. 168.201 ,32,208,8 



VOI R COMMODORE SERIOUS I'SERS (HIDE 
HI 



C64 UTILITY 



,500.304,2553 
B0 70 DATA 58 , 31 , 208 , 544 , 240 , 93 
, 132,183, 132,181, 177,168,201 
,32,208.38,2329 
29 80 DATA 204,58,31,175,48,133 
,73,200,177,168,201,32,208,2 

2.132,183,2046 
4F 90 DATA 164,184,145,168,164, 

183 . 177 , 168 , 201 , 32 , 208 , 18 , 20 

0,204,57,31,2304 
7B 100 DATA 208,244,240,17,165, 

73. 164, 184, 145,168,230,183,2 

30.184,164,1B3,27B2 
F2 110 DATA 204,57,31,208,197,1 

73,232,3,208, 103 , 164 , 184 , 204 
,57,31, 176,2232 
B5 120 DATA 51 , 1G9 , 32 , 14S . 16B . 2 

00 . 204 , 57 , 31 , 208 , 248 , 1 73 , 236 

,3,240,3,2170 
BD 130 DATA 32,166,45.24,165.16 

8,109,57,31,133,168,144,2,23 

0,169,230,1893 
A7 140 DATA 91.160,0,177,168.20 

1.32,208,7.200, 177, 168,201,3 

2,240,3,2065 
2B 150 DATA 76, 121, 22, 96, 173, 6B 
,31,240,210. 177,168,201,32,2 

40,3,136,1994 
3D 160 DATA 208,242,162,0,200.1 

77,168,157.65,3,169,32,145,1 

68.232,200,2328 
FB 170 DATA 204.57,31,208.240.1 

57 , 65 , 3 , 232 , 134 , 181 , 238 . 232 , 

3,76,222,2263 
CC 180 DATA 22, 164, 1B4, 204, 58. 3 

1 . 176 , 10 . 169 , 32 , 145 , 168 . 200 . 

204,57.31,1855 
46 190 DATA 209,248,165,184,133 

, 183,24,101, 181.205,57,31, 14 

4,66.56, 173,2159 
60 200 DATA 5B, 31 ,229, 181, 168, 1 

77, IBB, 201 , 32,240,3, 136,208. 

247, 132. 1B3.2394 
CB 210 DATA 200 , 162 . 0 , 177 , 16B , 1 

57,234, 159,201 , 32,209,8.200. 

177, 158,201 ,2452 
27 220 DATA 32,240,12,136,169.3 

2 , 145 , 168 , 232 , 200 , 204 , 57 , 31 , 

208.228, 169,2263 
B5 230 DATA 32 , 157 . 234 , 1S9 , 232 , 

134, 1B2.24, 155, 183, 101. 181, 1 

33, 1B4, 208, 2, 2311 
CF 240 DATA 133.184,164.183.177 
, 168, 164. 184. 145, 168, 198, 184 
,198,183,16,242,2691 
1C 250 DATA 166.181,164,184,202 
, 189 , 65 , 3 , 145 , 168 . 202 , 1 36 , 16 
,247, 166, 182,2416 
15 260 DATA 240, 13, 1B9, 234, 159, 
157,65,3,202,15,247, 165,182, 

133, 181 , 169,2361 
95 270 DATA 0,133,182,240,3,206 
,232,3,76,222,22, 165, 166, 133 
, 168, 165,2116 
0E 280 DATA 167.133,159,56,165, 

1GB, 229, 172, 133, 168, 176.2,19 

8,169,165.171,2441 
Bl 290 DATA 133,91,165,168,205, 

69,31,208,7,165,169,205,70,3 

1,240,32, 1989 
OB 300 DATA 160,0, 177, 16B, 201, 3 

2,208,7,200, 177, 168,201,32,2 

40,17,56.2044 
C0 310 DATA 165,166.237,57,31,1 

33,168. 176,2, 198. 169,198,91, 

76,229,23,2121 
FB 320 DATA 96,127,127,127,127, 

127, 127, 127, 127, 127, 127, 127, 



127, 127, 127, 127,2001 
6B 330 DATA 127 , 127 , 127 , 127 , 127 
. 127, 127, 127, 127, 127, 127, 127 
, 127. 127, 127, 127,2032 
3A 340 DATA 127,127,127,127,127 
,32,102,22,169.0,133,181,133 
, 182, 141 ,232. 1962 
09 350 DATA 3,165.166,133,73,16 
5,169,133,74,24,165,73,109.5 
7,31,133,1675 
Dl 360 DATA 73,144,2,230,74,160 
,0, 177,73,201,32,208, 10.200, 
177.73.1B34 
A4 370 DATA 201,32.208.3,238,23 
2,3, 172,57,31 , 177, 168.201,32 
,240,44,2039 
6D 3B0 DATA 136,177,168,201.32. 
240 , 37 , 173 , 68 , 31 , 240 , 32 , 162 , 
0, 177, 168,2042 
04 390 DATA 201.32,240,4,232,13 
6 , 20B , 246 , 134 , 1 8 1 , 162 , 0 . 200 . 
177, 168, 157.2478 
6B 400 DATA 65,3,169,32,145,168 
, 200 , 232 , 228 . 1 81 , 208 , 24 1 , 1 73 

,232, 3,208,2488 
89 410 DATA 3,32,20,30,32,186.4 

5.24. 165, 168, 109 , 57 , 31 , 133 , 1 

68, 144, 1347 
31 420 DATA 2,230,169,230,91,16 

0.0,177,168,201,32,208,63,20 

0,177,168,2276 
C6 430 DATA 201,32,209,10,165,1 

81 , 240 , 3 , 76 , 146 , 25 , 76 , 97 , 25 , 

160, 0, 1645 
BF 440 DATA 177.168,201,32,208, 

38, 173. 6B, 31, 208, 3. 76, 68, 24. 

132, 184, 1791 
D7 450 DATA 200,132,183,174,57, 

31, 164. 183,177, 168, 164.184. 1 

45.168,230,183,2543 
09 460 DATA 230 , 1B4 . 202 , 208 , 241 

, 172,58,31, 169,32,145,166. 17 

3,68,31,240.2352 
5D 470 DATA 90,165.181.240,85,1 

72 , 59 . 31 , 166 , 181 , 1 77 , 1 68 , 201 

.32.20B, 79, 2235 
67 480 DATA 136,202.208.246.177 

, 168,201,32.208,3. 136,209,24 

7, 132, 183,24,2511 
19 490 DATA 165,183,101,181,133 

, 184, 164, 183, 177, 168, 164, 1B4 

, 145, 168. 198, 1B4. 2682 
B7 500 DATA 198,183,16,242.166, 

181 , 164, 184.202, 189,65,3, 14S 

,168,202,136,2444 
F4 510 DATA 16,247,169,0,133,18 

1.166. 182,240, 17, 189.234. 159 

,157,6S.3,2158 
63 520 DATA 202 , 16 , 247 , 165 , 1B2 , 

133, 181,169,0, 133, 192,76, 6B, 

24.96,56, 1930 
EC 530 DATA 173,58,31,229,181.1 
68, 177, 168,201,32,240,3, 136, 

208,247,200,2452 
3F 540 DATA 162 . 0 , 177 , 16B , 157 , 2 

34.0,0.0,0,0,0,0,0,0,0,898 



PROGRAM: YC WRITER D 



14 10 BL-49 :LN-50 : SA-6521 
SB 20 FOR L-0 TO BL:CX-0:FOR D- 



0 TO 15: READ A : CX-CX*A j POKE 
SA+L - 16*D, A : NEXT 0 
A5 30 READ A: IF A><CX THENPRINT 
"ERROR IN LINE";LN+CL*10):ST 
OP 

40 40 NEXT L : END 

7E 50 DATA 159,169,32,145,158,2 

32 , 200 , 204 , S7 , 31 , 206 , 240 , 134 
,182,56,173,2390 
9C 60 DATA 59,31,229,181,133,19 

3 , 76 , 34 , 25 , 165 , 1 6B . 72 , 1 65 , 16 

9,72, 165, 1926 
ED 70 DATA 91,72,32,224,46,104, 

133,91,104.133,169,104,133,1 

68,56,165,1825 
DB 80 DATA 168,237,57,31,133.16 

8,176,2, 198, 169,32,20,30,198 

,91,32,1742 
DA 90 DATA 1B6.4S,24,165,16B,10 

9 , 57 , 31 , 133 , 168 , 144 , 2 , 230 , 16 

9,230,91, 19S2 
4C 100 DATA 162,0,160,0,189,65, 

3,145, 168,200,232,228, 181,20 

8,245,32.2218 

41 110 DATA 186,45,96,165,166,1 
33, 168, 165, 167, 133 , 169 , 56 , 16 
5, 168,229, 172,2383 

2B 120 DATA 133,168,176,2,198,1 
69.172,58,31,177,168,201.32. 
209,32,132.2057 

10 130 DATA 184,136,132,183,164 
, 183. 177, 16B, 164 , 184 , 145 , 158 
, 198, 1B4, 198, 183,2751 

FD 140 DATA 164, 184, 196. 172, 20B 
,238, 169,32, 145, 168, 169, 148, 
32,210,255.76.2566 

91 150 DATA 120,31.127,127,127, 
127 . 127 , 127 , 127 , 127 , 127 , 127 , 
127, 127, 127, 127, 1929 

C4 160 DATA 127,127,127,127,127 
, 127, 127, 127, 127, 127, 127, 127 
,127,127.127,127,2032 

CA 170 DATA 127,127,127,127,127 
, 127, 127, 127, 127, 127, 127, 127 
,127,127,127,127.2032 

1C 180 DATA 127,127,127,127,127 

,127, 127, 127, 127,127,127,201 
, 1,208,6,32, 1845 
7B 190 DATA 227,46.76,120,31,20 
1, 2, 20B, 3, 76. 106. 49, 201, 3. 20 
8,11, 1566 
D9 200 DATA 173,68,31,208,3,32, 
99,22.75, 120.31.201,4,208, 11 
.173, 1460 
4F 210 DATA 68 . 31 . 208 , 244 , 32 , S6 
,24.76, 120,31,201,5,208,3,76 
. 196, 1579 
2C 220 DATA 47 , 201 , 6 . 20B , 3 . 76 , 6 
2.50,201.7,208,3.75,90.35,20 
1, 1494 

AC 230 DATA 6,208.3,76,93,35,20 
1,9, 209 , 3 , 76 , 246 , 27 . 20 1 , 10 , 2 
08, 1612 

A3 240 DATA 3,76,121,27,201,11, 
208, 3 , 76 , 79 , 37 , 201 . 12 , 208 , 3 , 
76. 1342 

2B 250 DATA 71,52,201,13,208,3, 
76,4,61,201, 14,208,3,76,89,2 
8,1308 

89 260 DATA 201,15,206,3.76.99, 

35 , 201 , 16 , 208 , 3 , 76 , 184 , 36 , 20 

1, IB, 1580 
AB 270 DATA 208 , 4 , 169 . 1 , 20B , 6 . 2 

01 , 19,208,7,169,0,133,255.76 

,74,1738 

CE 2B0 DATA 52 , 201 , 20 , 208 , 3 , 76 , 
97 , 47 , 201 . 21 , 208 , 6 , 32 , 94 , 51 , 
76,1393 




VOl K COMMODORE SKKIOI S I SERS (HIDE 
H2 



C64 UTILITY 



03 290 DATA 120,31,201,23,540,5 
4.201,24,206,3,76.182.28,201 
,25,208, 1795 

67 300 DATA 3.76,185,28,201,26, 

208.3,76.0,35,76,120,31.173, 
66,1307 

68 310 DATA 31,240,47,169,0,141 
,68,31.141,67,31,32,60,40, 16 
9,0,1255 

33 320 DATA 141,171,2,169,184,1 
41,167,2,169,224.141,168,2,1 
68,23,141.2014 

BF 330 DATA 169,2.169,204,141,1 

70,2,169,32,32,72,40,32.63,4 
0,76, 1413 

8A 340 DATA 126,27,169,1,141,66 

,31, 133, 177,32,60.40,169,0,1 

41,171,1484 
4C 350 DATA 2,163,184,141,187,2 

, 169,224, 141 , 168,2, 169,23, 14 

1 , 168,2,1873 
99 360 DATA 163,204,141,170,2,1 

63,215,32,72,40,32,63,40,76, 

120.31,1576 
D0 370 DATA 173,67,31,240.44,16 
3 , 0 . 141 . 67 , 31 . 32 , 60 , 40, 169 , 0 

,141, 1405 
9B 380 DATA 171,2,169,200,141,1 
67,2, 169.224, 141 , 168 , 2 , 163 , 2 

5, 141, 163,2060 
AD 330 DATA 2,163,204,141,170,2 
.169,32,32,72,40,32,63,40,76 
,120, 1364 
A0 400 DATA 31,169,1,141,67,31, 

141,66,31,133,177,169,0,141, 

171,2, 1471 
4B 410 DATA 169,184,141,167,2.1 

63,224,141, 168.2,163,23, 141, 

163,2. 169,2040 
9B 420 DATA 204,141,170,2.163,2 

15,32,72,40,163,200,141,167, 

2,163,224,2117 
35 430 DATA 141,168,2,169,25,14 

1,169,2,169,204.141,170,2,16 

9,0, 141 , 1813 
32 440 DATA 171,2.163,202.32,72 

,40,32,63,40,76, 120, 31, 173,6 

8,31, 1322 
EE 450 DATA 240,47,32,56.24,169 

,0,141,68,31,32,60,40, 183,0, 

141, 1250 

4F 460 DATA 171,2,163,216,141,1 
67.2,163,224.141,168,2.169,2 
7, 141 , 163,2078 

7D 470 DATA 2,169,204,141,170,2 

, 163 , 32 , 32 , 72 . 40 , 32 . 63 , 40 , 76 
, 120, 1364 

9E 480 DATA 31 . 169 , 1 , 141 , 6B , 31 , 

32,60,40,169,0, 141 , 171 , 2 , 169 

,216, 1441 
DB 490 DATA 141,167,2,163,224,1 

41, 168,2, 163,27, 141, 163,2,16 

9,204, 141,2036 
26 500 DATA 170,2,169,201,32.72 

, 40 , 32 , 63 . 40 , 32 , 99 , 22 . 76 . 120' 

,31,1201 

SB 510 DATA 32,60,40,163,104,14 
1,167.2, 169,225, 141,168,2,16 
3,45,141,1775 
97 520 DATA 163.2,163,204,141,1 

70,2,163,0,141,171,2,169,80. 

133, 17B, 1900 
9F 530 DATA 163,31,133,179,183, 

16,133,211.169,165,141,20,3, 

169, 194, 141,2043 
96 540 DATA 21,3,88.32,95,133.1 

20,32,63,40,76, 120,31,0,0.0, 

314 



PROGRAM: YC WRITER E 



01 10 BL-50 :LN-S0 : SA-7350 

SB 20 FOR L-0 TO BL:CX-0:FOR D- 
0 TO 15: READ A i CX-CX'A : POKE 
SA*L*16*D , A: NEXT D 

AS 30 READ A: IF AXCX THENPRINT 
"ERROR IN LINE"; LN+CL*10) : ST 
OP 

40 40 NEXT L: END 

4S 50 DATA 76,134,28,76,35,23,7 
6,30.29,76, 177,29,32,67,29,2 
40, 1263 

52 60 DATA 3,76,120,31,165,172, 
240,249,74, 176 , 246 , 24 , 173 , 63 
,31.208.2051 
0F 70 DATA 240,101,172,133,172. 
56, 173,57,31,229, 172, 141,57. 
31, 16B, 136, 2069 
FE 80 DATA 140.58.31,165,172,14 
1 ,63, 31 , 74, 133, 73, 170, 24, 373 
,59,31, 153B 
S4 90 DATA 105.8,141,59,31.144, 
3 , 238 , 60 , 31 , 238 . 51 , 31 . 208 , 3 , 
23B.1S99 
33 100 DATA 62,31,202.208.231,5 
6.16S, 166,223. 172, 133,166, 17 
6,2, 198, 167,2364 
7A 110 DATA 169.0,133,172,32,23 

9 , 44 , 32 , 90 , 29 , 76 , 120 , 31 , 32 , 6 

7,23,1295 
09 120 DATA 240,3.76.120,31.165 
, 1 72 . 201 , 79 , 240 , 247 , 74 . 1 44 , 2 

44,164,172,2372 
SE 130 DATA 140,58,31,200,140,5 

7.31 , 32, 177,29,76, 120, 31 ,55, 

173,64,1415 
94 140 DATA 31.237,69.31,133,73 

, 173, 65 , 31 , 237 , 70 . 31 , 5 . 73 , 24 

0,1,1500 
BB 150 OATA 36,165,171,96,173,1 

67,2, 133, 168, 133,87,173,168, 

2.133,169,2036 
CO 160 DATA 133,89,166,73,56,16 

S, 168.233,8. 133, 168, 133, B7. 1 

76,4,19B,19B9 
08 170 DATA 169,198.98,202.208, 

238,169,22,133,74,166.73,163 

, 170, 160,0,2233 
E8 180 DATA 145,87,200,192,8,20 

8.249,24,165,87,105.8,133,87 
,144,2,1844 
90 130 DATA 230.88,202,208,231, 

24,165,168, 10S,64, 133, 168,13 

3,87, 165, 169.2340 
9E 200 DATA 105.1.133,169,133,8 

8, 198,74, 20B, 208, 96, 173, 167, 

2,133,168,2056 
2B 210 DATA 133,87,173,168,2,13 

3,169,133,88,24, 165, 168. 105, 

8,133,168,1857 
3C 220 DATA 133,87,144,4,230,16 

9,230,88,169,22,133,73,56, 15 

9, B0, 229,2016 
Bl 230 DATA 172,237,63,31,74,17 

0, 169,85, 160,0, 145,87,200, 19 

2,8,208,2001 
60 240 DATA 249 . 24 , 165 , B7 . 105 , 8 

, 133,87, 144,2.230.86,202,208 

,231 ,24, 1387 
23 250 DATA 165,158,105,64,133, 

168, 133,87, 165. 163,105,1,133 

,163,133,88,1386 
2B 250 DATA 138.73,208,200,36,1 

27,127.127, 127,127, 127,127, 1 

27,127,172,58.2148 



76 270 DATA 31 , 177 , 16B . 201 , 32, 2 
40, 1,36, 162.0. 134. 185.134,18 
7,232, 134,2114 
43 290 DATA 186.180.0,177.168,2 
01.32,208.13,177,168.201,32, 
208.7,200.2138 
C3 230 DATA 204,57.31,208,244,3 
8. 177, 168,201,32.208,2,230. 1 
85,200,204.2447 
BE 300 DATA 57,31,208,242,165,1 
85,240.207, 172,58,31, 132,184 
.136,177,168,2333 
4B 310 DATA 201,32,208,5,230,18 
6,135,208,245.132,183.56,165 
,185.223,186,25B7 
BE 320 DATA 133,185,137,186,176 
,22, 162, 1 ,56, 165, 186,229, 1B5 
, 133, 186, 137,2399 
A2 330 DATA 185 , 144 , 3 , 232, 20B , 2 
42,134, 197, 166,185,208.2, 166 
,1BB,164,1B3,2S95 
B6 340 DATA 1 77 , 168 , 164 , 1B4 , 145 
, 168 , 20 1 , 32 . 240 , 7 , 1 99 , 1 84 , 1 9 
8, 163,76, 132,2457 
02 350 DATA 30,138,184,164,184, 
169,32, 145, 16B, 138, 184, 138. 1 
B3, 165, 187,240,2629 
08 360 DATA 29,134,73.166,187,1 
65, 186.240,5, 198, 186, 76, 183, 
30,202,240,2300 
F2 370 DATA 11,164,184,163.32,1 
45, 15B, 198, 1B4, 202, 208, 245, 1 
66,73,202,208,2553 
CC 380 DATA 189 , 96 . 255 , 25S , 25S , 
2S5 , 25S , 255 , 2SS , 255 , 255 , 255 , 
2SS , 25S , 255 , 2SS , 3855 
AB 330 DATA 2SS , 255 , 255 , 25S , 2SS 
. 2SS , 255 . 25S . 25S , 255 , 25S , 25S 
, 255 , 255 , 255 , 255, 4080 
3E 400 DATA 255 , 255 , 25S , 255 , 255 
, 2S5 , 255 , 255 , 25S , 25S , 255 , 255 
.25S.255, 255, 255,4080 
41 410 DATA 255, 255, 25S, 255,255 
. 255 , 255 . 255 , 255 , 255 , 127 , 127 
,127,127.127,127,3312 
C9 420 DATA 127.127,127,127,127 
. 127, 127, 127, 127, 127, 127, 127 
,127, 127, 127. 127,2032 
4F 430 DATA 127.127,127,127,127 
,127.127,127,127,127,127,127 
,127,127,127,127,2032 
96 440 DATA 127,127,127,127,127 
, 127, 127, 127. 127, 127. 127, 12, 
0,0,0,41, 14S0 
58 450 DATA 0 , 122 , B , 80 , 73 , 132, 2 
27.120,204,0,160.8.1,1,0.188 
, 1390 

-2 460 DATA 62 , 155 , 1S9 , 127 , 8 , 12 

7 , 127 , 54 , 83 , 58 , 78 . 79 , 32 , 78 , 6 

5,77,1379 
58 470 DATA 63,32,32,32,32,32,3 

2,32,32,32,127,127,127,127.1 

27, 127, 1119 
18 480 DATA 127,127,127,127,127 
, 127, 127. 127, 127, 127, 127, 127 
,76,129,31,76,1836 
2E 430 DATA 225,31,76,14.32,76, 

61,32,76,70,32,163.254, 141 ,3 

3,208, 1531 
7B 500 DATA 169,6,141,134,2,141 

, 32.208, 169, 12B, 141 , 138.2, 16 

0.7, 169. 1747 
E4 510 DATA 0,153,193,2,135,16, 

250,32, 125,134.32,125,38.173 

,63,31,1553 
BA 520 DATA 133,166,133,73,141, 

64.31, 173,70,31.133, 167, 133, 

74.141,65.1728 



VOl K COMMODORE SERUM'S ISFRS WIDE 



C64 UTILITY 



► 



5C 530 DATA 31 , 32 . 78 , 40 , 32 , 81 , 4 
0. 160,80, 140,57,31, 136,140,5 
B, 31, 1167 
08 540 DATA 163,195,141,59,31,1 
69,257,141,60.31, 169,180,141 
,61,31,169, 1911 
3B 550 DATA 204,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,204 



* 



PROGRAM : YC WRITER F 



A7 10 BL-50 :LN-50 : 5A-B151 

SB 20 FOR L-0 TO BL:CX-0:FOR 0- 
0 TO 15; READ A;CX=CX*A: POKE 
5A+L»1G+D,A:NEXT 0 

AS 30 READ A: IF AXCX THENPRINT 
"ERROR IN LINE" ; LN*(LM0) : ST 
OP 

40 40 NEXT L: END 

ED 50 DATA 141,62,31,169,0,141, 

63.31.76.14,32,173,55,31,133 
, 166. 1318 
3C 60 DATA 173,56,31,133,167,17 

3,54,31,133.171,173,53,31.13 

3.172,173,1857 
F8 70 DATA 51,31,133,175,173,52 

.31,133. 176.173,49,31, 133, 17 

3, 173,50, 1737 
3A B0 DATA 31,133,174,120,32,13 

2 . 1 94 , 32 , 228 , 255 , 540 , 251 , 20 1 

,133,208,3,2367 
45 90 DATA 76.246,54,201,135,20 
8 , 3 , 76 , 86 , 44 , 201 , 1 36 , 240 , 54 , 

201 , 139,5070 
DC 100 DATA 508,3,76.89,44,175, 

141,2. 195.4,208,3,76,84,26,2 
01 , 1529 

BD 110 DATA 134,240.512,76. 13B, 

32 . 32 , 68 , 229 , 32 , 155 , 19S . 32 , 1 

B2. 195, 1G9.211B 
Dl 120 DATA 49,141,20,3,169,234 
, 141 ,51,3,169,202. 141,38,3, 1 

69,241 , 1744 
6B 130 DATA 141,39,3,165,166,14 

1,55,31,165.167,141.56,31.16 

5,171,141,1778 
76 140 DATA 54,31,165.172,141.5 

3,31,165,175,141,51,31,165,1 

76, 141,55, 1744 
5A 150 DATA 31,165,173,141,49,3 

1 , 165, 174, 141 ,50,31 ,96,555,2 

55,255,255,2267 
AB 160 DATA 255,253,255,76,144, 

32,76,61,33,201. 13.209,3,76, 

94,34, 1814 
51 170 DATA 201, 17. 50B, 3.76,211 
, 33 , 501 . 19 , 540 . 45 , 501 , 20 , 20B 

,3.76, 1762 
9C 1B0 DATA 119.46,501.35,208,3 

, 76 , 200 , 50 . 201 , 1 45 . 20B . 3 . 76 . 

37, 34. 1639 
99 190 DATA 201 . 14B , 208 . 3 , 76 , 22 

0 , 2S , 201 , 157 . 208 , 3, 76 , 38 . 33 . 

201, 134, 1932 
69 200 DATA 208,3,76,123,31.76, 

254.41 , 120. 173,59.31 , 141 . 167 
,2, 173, 167B 
B4 210 DATA 60.31,141.168.2,173 
,61.31, 141,169,5,173,62.31,1 

41 . 170, 155S 
CF 220 DATA 2,169,0,141,171,2,8 



8,56, 165, 166,229, 172, 133, 166 
,176.2. 1838 
C2 530 DATA 198.167,166.171,240 
, 15,56,165, 166,537,57,31, 133 
, 166, 176,5,5146 
49 240 DATA 198,167,505,506,541 
,56, 165, 175,559, 171, 133, 175, 
176,5, 198, 176,5675 
FD 250 DATA 169,0,133,171,133,1 
75, 35,536,44,35,539,44,76, 12 
0,31,164,1796 
BD 260 DATA 175,508.11.164,176, 
208,7, 164, 175,508,3, 76, 150, 3 
1 , 164, 166,5053 
68 570 DATA 508,2,198,167,198,1 
66. 198, 172, 164, 175, 195,555,5 
40,3,76.202,2513 
77 280 DATA 33,165.171,208,37.3 
2.66,40,32,218,39, 169.0, 133. 
91.165,1597 
4F 290 DATA 166.133,168,165,167 
,133, 169,56, 165, 168.237,58,3 
1, 133, 1GB, 176.2293 
9C 300 DATA 2,198.169,32,186,45 
, 120,76, 147,33,198, 171, 150,5 
S, 173, 167, 1893 
88 310 DATA 2,233,64,141,167,2, 
173, 168,2,233. 1, 141 ,168,2.56 
,173, 1786 
76 320 DATA 169,2,233,40,141,16 
9,2, 176,3,206, 1 70 , 2 , 1 73 , 57 , 3 
1,74. 1648 
3F 330 DATA 170,54,173,167,5,10 
5,8,141 , 167,5, 144,3,538, 168. 
5,538, 1755 
7C 340 DATA 169,5,508.3,238,170 
, 2 , 202 , 208 , 231 , 88 , 169 , 157 , 35 
,210.255,2344 
27 3S0 DATA 173,58,31,133,175,1 
6S, 175,208,2, 198, 176, 198, 175 
,32,236.44,5176 
88 360 DATA 76.505,33,35,210,25 
5.32,539,44,76, 150,31 ,173,72 
,31 , 133, 1765 
A8 370 DATA 74,56,173,71,31,537 
,57,31,133,73, 176,2, 19B, 74, 5 
6. 165, 1607 
06 380 DATA 73,559.166,133.75,1 
65 . 74 . 529 . 167 . 5 . 75 , 144 . 46 , 16 
0.0, 177, 1918 

A3 390 DATA 166,133,73.24,165.1 
65, 109,57.31 , 133. 166, 144,2.2 
30, 167, 165, 1931 
D9 400 DATA 171,501,51,508,6,35 
, 199,34, 76,55,34,530, 171 , 169 
,17, 35, 1656 
BB 410 DATA 210,255,230,175,208 
,2,230,176.35.236,44,76. 120, 
31, 165, 17S.236S 
4B 450 DATA 509,7.165,176,508,3 
.76, 150,31 , 160,0, 177, 166, 133 
,73.56, 1759 
7S 430 DATA 165.166,237,57,31,1 
33, 166,176,8, 198, 167, 16S, 171 
,208,6,32,2080 
5C 440 DATA 517,34,76,83,34,198 
, 171 , 169, 145,35,510,555, 165, 
175, 50B, 5.5174 
6D 450 DATA 198,176.198.175,76. 
31 ,34, 173,75.31, 133,74,56, 17 
3.71,31,1702 
3E 460 DATA 237,57,31,133,73,17 
6,2, 198,74,56, 16S. 73, 229, 166 
, 133,75, 1B7B 
C8 470 DATA 165,74,229, 167,5, 7S 
, 144,69,56, 173,57,31,229, 178 
,24, 101 , 1771 



7B 4B0 DATA 166,133,166,144,8,5 

30, 167, 165, 171 ,501,51 ,208,27 
, 16S, 172,75,5510 
98 490 DATA 169,0,133,175,38,19 

9, 34, 104, 170,540, 18, 120, 169, 

157, 32.210, 1959 
6F 500 DATA 555,505,508,250,88, 

76, 180,34,230, 171 , 35 , 1 , 42 , 23 

0, 175,508,5385 
A0 510 DATA 5,530,176,169,0,133 
, 172 , 32 , 239 , 44 , 32, 236 , 44 , 76 , 

120,31,1736 
4D 550 DATA 35,60,40,35,66,40,3 

5,116,39,35,63,40, 169.21,133 
,91 , 1006 

50 530 DATA 20B, 16,32,60.40,32, 
66,40,32,216,39,32,63,40, 169 
,0.1085 

BA 540 DATA 133,91,165,167,133. 

169, 165, 166, 133, 168,56, 16S, 1 

68,229,172,133,2413 
C7 550 DATA 168,0,0,0,0,0,0.0,0 

,0,0,0,0,0,0,0. 168 



PROGRAM: YC WRITER G 



6E 10 BL-52 :LN-50 : SA-B958 

5B 20 FOR L-0 TO BL:CX-0:FOR D- 
0 TO 15: READ A : CX-CX*A : POKE 
SA*L»16+D,A:NEXT D 

A5 30 READ A: IF AXCX THENPRINT 
"ERROR IN LINE";LN-CL*10):ST 
OP 

40 40 NEXT L : END 

75 50 DATA 176 . 2 , 19B , 169 , 38 , 186 
.45,36,8.72. 138.78,158,78,81 
6, 165, 1B00 
57 60 DATA 93,56,165,87,229,89, 
165 , 8B , 229 , 90 , 144 , 24 . 1 60 , 0 , 2 
38,196,8047 
6F 70 DATA 98,808.3.808,840.46, 
177 . 87 , 14S , 89 , 800 . 808 , 242 , 83 
0,88,830,2487 
36 80 DATA 90,76,83,35.164,98,1 
38, 101 ,88. 133,88, 138,84, 101 , 
90,133,1514 
B5 90 DATA 90 , 835 . 158 , 840 , B , 1 36 
, 177,87, 145,89,76,58,35, 19B. 
88, 198,8009 
21 100 DATA 90,202,808,841,104. 
168, 104, 170. 104,40,96, 157,15 
7, 127, 127, 127,2165 
FD 110 DATA 127,187,76,108,35,7 
6,5.36,76.830,35.76.38,36.17 
3,537,1479 
FB 120 DATA 3 , 20B , 52 , 159 , 1 , 141 , 
237 , 3 , 165 , 167 , 141 , 236 , 3 , 56 . 1 
6S, 166, 1913 
98 130 DATA 229,178,141,535,3,1 
76.3,806,836.3,38,60,40.38,1 
21,36,1725 
6E 140 DATA 32,147,36,169,92,16 
0,36,38,30, 171 , 166, 175, 165, 1 
76,38,805, 1884 
2D 150 DATA 189,32,63,40,76,120 
,31,201,2,240,67, 169,5,141,2 
37,3, 1613 
61 160 DATA 1G5, 1G7, 141 ,234.3.5 
G , 173 , 58, 31 , 229, 172 , 24 , 101,1 
SB, 141 ,233,2094 
1A 170 DATA 3,144,3,238,234,3,3 




C64 UTILITY 



2,60,40. 32, 121 . 36,24, 173, 1B7 

,e, i3ie 

D3 180 DATA 105,208,141.167.2,1 
44,3,239, 16B, 2, 173, 163,2. 105 
,26,141,1794 
DF 130 DATA 163,2,144,3,238,170 
,2,163, 104, 160,36.76, 143,35, 
169,0. 1620 
8B 200 DATA 141,237,3,32,60,40, 
32, 121 ,36,32, 147,36, 162,35, 1 
63.32, 1315 
B4 210 DATA 134.176,32,72.40.16 
6, 178,202,208,244,76, 153,35, 
163,0, 141 ,2028 
BE 220 DATA 232,3,56,173,235,3, 
237,233,3, 133.73,173,236,3,2 
37,234.2264 
C6 230 DATA 3,5,73,176,7.76,0,1 
92, 169. 1,208,227,32,60,40,32 
,1301 

8G 240 DATA 121,36.32,147.36,15 
2.30, 163,32,32,210,255,202,2 
08,250,24, 1346 
14 250 DATA 173,167,2.105,208,1 
41, 1G7, 2, 144,3,238. 168,2, 173 
, 169,2, 1864 
0E 260 DATA 105,26,141,169.2,14 
4,3.238, 170,2, 169, 114,160.36 
,32,30. 1541 
07 270 DATA 171,76.153.35.134,7 
6 , 75 , 45 , 83 , B4 , 65 , 82 . 84 . 58 . 32 
,0,1313 

7F 280 DATA 194,76,75.45,69.78, 
68,58,32,0, 197,82,82.79,82,3 
3,1250 

35 290 DATA 0.169,64.141,167,2, 

169.225, 141,168,2.169,40.141 

, 169.2, 1769 
C2 300 DATA 169.204.141,170,2,1 

69,0, 141, 171,2,96.24, 173, 167 

,2,105,1736 
43 310 DATA 136,141,167,2,144,3 

,238, 168,2. 173, 163 , 2 , 105 , IS, 

141, 169, 1775 
A3 320 DATA 2,144,3,238,170,2,9 

6 , 253 , 255 , 255 , 255 , 255 , 255 , 25 

5,255,255,2948 
D3 330 DATA 173.64,31,205,69,31 

, 208 , 1 1 , 173 , 66 , 31 , 20S , 70 , 31 , 

208.3, 1578 
FB 340 DATA 76,120,31,169,0,32, 

189,255, 169,4, 170 , 160 , 255 , 32 

, 185,255,2103 
9F 350 DATA 32.192,255,162.4,32 

,201,255, 163, 13,32,210,255,1 

73,69.31,2085 
0A 360 DATA 133,168,173.70,31,1 

33, 169, 160,0, 165, 145,201, 127 

,240,72,174,2161 
E4 370 DATA 63 , 31 , 240 , B. 163 , 32. 

32,210,255,202,208,250, 169, 1 

7.32.210.212B 
20 380 DATA 255,177,168,32,210, 

2S5, 200 , 204 ,57,31, 208 . 240 . 17 

3, S7, 31, 201, 2499 
FF 390 DATA 80,240,5.169,13,32, 

210,255,24, 165, 168 , 109 , 57 , 31 

, 133, 168, 1853 
E2 400 DATA 144,2,230,169,160,0 

,56, 173.64.31 ,229, 168, 133,73 

, 173,65. 1870 
4A 410 DATA 31 . 229 , 163 , S , 73 , 176 

,178. 163, 13,32.210,255. 169,4 

,32. 195, 1940 
67 420 DATA 255 , 32 . 204 , 25S , 76 , 1 

20 , 31 , 173 . 237 , 3 , 201 , 2 , 240 , 3 , 

76. 120,2028 
AF 430 DATA 31,173.233,3,133,87 



, 173,234,3, 133,88.230,87.208 

,2,230,2048 
F3 440 DATA B8 , 173 . 235 , 3 , 133 . 89 

, 173,236, 3, 133,90.56, 165.87, 

237,235,2136 
7B 450 DATA 3,133,181.165.88,23 

7,236,3, 133, 182,56, 173,64,31 

,229,87,2001 
B8 460 DATA 133,73,173,65,31,22 

9 , 88 , 5 , 73 , 144 , 30 , 56 , 1 73 , 64 , 3 

1 ,229, 1597 
39 470 DATA 87 , 1 33 , 92 , 173 , 6S , 31 

,229,88, 133,93,56,165,92,229 

, 181, 133, 1880 
6F 480 DATA 73 , 16S, 93 . 229 , 1 82 , 5 

,73,176.8.165, 181, 133,92, 165 

, 182, 133,2055 
CD 430 DATA 33 , 32 . 0 , 35 . S6 , 173 , 6 

4,31,237,233,3,133,73,173,65 

,31, 1432 

33 500 DATA 237.234,3,5,73,176, 
15, 173,235,3, 141 ,64,31 ,173.2 
36.3, 1802 
D3 510 DATA 141,65,31,76,17.39, 
56, 173,64, 31,229, 181, 133,73, 
141,64. 1513 
E4 520 DATA 31 , 173 , 55 , 3 1 , 228 , IB 
2.133.74,141,65,31,160,0.166 
, 1B2. 240, 1903 
22 530 DATA 12.169,32,145,73,20 
0, 208,251 ,230, 74,202, 208.246 
, 166, 181 , 240. 2637 
EF 540 DATA B, 169 , 32, 145 , 73, 200 
,202,208, 2S0, 165, 167. 133. 169 
,56, 16S, 166.230B 
6A 550 DATA 229,172,133,168,176 
,2, 199,169. 165, 171. 133,91,24 
0, 16,56, 165.2284 
1A 560 DATA 168,237,57,31,133,1 
68,176,2, 196,163, 198.91 ,208, 
240,32,180,2288 
51 570 DATA 45,76.86,35,0,0.0,0 
,0,0,0,0,0,0,0,0.252 



PROGRAM : YC WRITER H 



AD 10 BL-50 :LN-50 : SA-3B53 

5B 20 FOR L-0 TO BL:CX-0:FOR 0- 
0 TO IS: READ A: CX-CX*A : POKE 
SA+L*15+D,A:NEXT D 

A5 30 READ A: IF A><CX THENPRINT 
"ERROR IN LINE";LN+CL*10):ST 
OP 

40 40 NEXT L : END 

DF 50 DATA 169,176,160,38,32,30 

,171,159,1,160,39.32,30,171, 

169, 13, 1560 
C6 60 DATA 32,210,255,162,80,18 

9,19,39,157,0,50,202,16,247, 

169,0, 1B27 
FB 70 DATA 160,50,32,30,171,162 

, 0 , 1 B9 , 100 . 39 , 157 , 80 . 31 , 232 . 

224,16,1673 
0E 80 DATA 20B , 245 , 96 . 204 , 73 , 7B 

, 69 , SB , 32 , 49 , 32 , 32 , 32 , 1 95 , 79 

,76, 155B 

BE 90 DATA 85,77,78,58,32,48,32 
,32,32.215,79,82,68,83,58,32 
, 1092 

39 100 DATA 49,32,32,32,32.32.3 



2 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 42 
,536 

00 110 DATA 32,215,32,42,32,202 
,32,42,32,32,32,42,32,32,32. 
32.835 

70 120 DATA 32,32,32,32,32,32,3 
2 , 32 , 42 , 32 , 198 , 48 , 6 1 , 200 , 187 
,204, 1238 

AA 130 DATA 208,32,42,0,186,79, 
67 , 85 , 77 , 69 , 78 , 84 . 58 , 32 , 78 , 7 
9,1264 

16 140 DATA 32,78,55,77,69,0,22 
1 , 46 , 46 , 46 , 46 , 58 , 46 , 46 , 46 , 46 
,966 

62 150 DATA 221,46,46,46,46,58, 
46 , 45 , 46 , 46 , 221 , 46 , 45 , 46 . 46 , 
58,1110 

86 160 DATA 46,46,45,46,221,46, 
46 . 46 , 46 . 5B , 46 , 46 . 46 , 46 , 231 , 
46, 1098 

3B 170 DATA 46,45,46,58,46,46,4 
6,46,221,45,46,46,46,58,46,4 
6,935 

A2 180 DATA 46,46,221,46,46,46, 
46,58,46,46,46,46,221.46,46, 
46, 1098 

EA 190 DATA 46 , 5B , 46 , 46 . 46 . 46 . 0 

, 78 , 79 , 32 . 7B , 65 , 77 , 69 , 32 , 32 , 
830 

56 200 DATA 32,32,32,32,32,32,3 
2,32,214, 195, 159,0, 133,87, 16 
9,229,1452 
73 210 DATA 133 , BB , 169 , 192 . 1 33 . 
B9 , 169 , 227 , 133 , 90 , 162 , 21 , 160 
,0.177,87.2030 
52 220 DATA 145,89,200,209.249, 
230 , 88 , 230 , 90 , 1 77 , 87 , 14S , B9 , 
200, 192.64.24B3 
B3 230 DATA 20B , 247 , 24 , 16S , B7 , 1 
05 . 64 , 1 33 , 87 , 144 , 2 , 230 , 88 , 24 
,165,89,1862 
CB 240 DATA 105,64,133,89,144,2 
, 230 , 90 , 202 , 208 . 209 , 32 , 222 , 1 
95,96.255,2276 
95 250 DATA 25S , 2SS , 255 , 255 , 2S5 
, 255 , 255 , 255 , 25S , 255 , 255 , 255 
, 255 , 25S , 255 , 255 , 40B0 
4B 260 DATA 255 . 255 . 255 , 255 . 25S 
, 255 , 255 , 255 , 255 , 255 , 255 , 32 , 
214, 195, 159, 192,3607 
FS 270 DATA 133.87,163.252,133, 
88,169,0, 133, B9, 169,254, 133, 
90, 162,21 ,2082 
43 2B0 DATA 160,0,177,87,145,89 
, 200 , 20B , 249 . 230 , BB , 230 , 30 , 1 
77,87, 145,2362 
FE 290 DATA B9 , 200 . 192 , 64 , 208 . 2 
47, 196, BB , 198 , 90 , 56. 165,87,2 
33,64, 133,2312 
25 300 DATA B7 , 165 , BB , 233 , 1 , 133 
,BB,56, 165,89,233,64, 133,89, 
16S, 90, 1B79 
3F 310 DATA 233,1,133.90.202,20 
8 , 20 1 , 32 , 222 , 1 95 , 96 , 127 , 127 , 
127,127,127,2248 
C4 320 DATA 127,127,127,127,127 
, 127, 127, 127. 127, 127, 127, 127 
,127,127,127,76,1981 
EH 330 DATA 90,40,76,132,40,76, 
238 , 40 . 76 , 24 . 4 1 , 76 , 127 , 41 , 76 
,150,1343 
62 340 DATA 41,76,178,41,76,221 
,41,76,175,40.76,81,41, 120, 1 
68,48, 1S02 
BD 3S0 DATA 141,20,3,169,234,14 
1,21,3,173. 167.2, 141,60,3. 17 
3, 168, 1619 
0A 360 DATA 2.141.61.3.173.169. 
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2, 141,62.3, 173, 170,2,141,63, 
3,1309 

C7 370 DATA 173,171,2,141,64,3, 

96, 120, 169, 165, 141 , 20 , 3 , 169 , 

194,141,1772 
IB 380 DATA 21,3,173,60,3,141,1 

67.2.173.61,3,141,168,2,173, 

62. 1353 

31 390 DATA 3,141,169,2,173.63, 
3, 141 , 170,2. 173.64,3, 141 , 171 

,2,1421 

BD 400 DATA 88,96,120,169,155,1 

41,20,3, 169, 194, 141,21,3, 173 

,60,3, 1566 
4D 410 DATA 141,157,2,133,251,1 

73,61,3,141,166,2,133.252,17 

3,62,3,1865 
43 420 DATA 141.169,2,173,63,3, 

141 . 170,2, 173,64, 3. 141, 171,2 

.32, 1450 

CB 430 DATA 214,195,160,7,177,2 

51, 153, 193,2, 135. 16,248,32,2 

22,195,88,2289 
2D 440 DATA 96,169,1,141,192.2, 

173,167.2.141, 190.2, 133,251, 

173, 168,2001 
B7 450 DATA 2,141,191,2,133,252 
, 160, 7, 185, 193,2, 145,251 , 136 

,16,248,2064 
C9 460 DATA 169,33.141,184,2.16 

9,0, 141 , 192,2,96, 165,251. 141 
, 188,2, 1676 
2E 470 DATA 165,252,141,189,2.1 

73, 167,2, 141, 190,2.133,251,1 

73, 168,2,2151 
45 4B0 DATA 141,191,2,133,252,3 

2,214.195, 160,7,177,251, 153, 

193.2,174,2277 
73 490 DATA 171,2,208,5,9,240,7 

6,72.41 ,9, 15, 145,251 , 135, IE, 

234, 1630 

SF 500 DATA 32 . 222 , 19S , 96 , 169 , 1 

,141, 192,2, 173, 186,2,240,30. 

169,0, 1850 
17 510 DATA 141.186,2,173,190.2 

, 133.251,173,191,2, 133,252, 1 

60,7, 185.2181 
80 520 DATA 193,2,145,251,136,1 

6,248, 169,33, 14 1 . 184 , 2 , 169 , 0 

, 141, 192,2022 
5F 530 DATA 2,96,201,128,144,5, 
56,233, 128.208,3,56,233,32. 1 

41 , 172, 1838 
04 540 DATA 2 . 152 , 72 , 32 , BB , 196 , 

104, 168,96, 169. 192. 133,251 , 1 
69,227,32.2083 
3D 550 DATA 236,0,0,0,0,0.0,0,0 

,0,0,0,0,0,0,0,236 



PROGRAM: YC WRITER I 



2E 10 BL-50 :LN-50 :SA-10G5 
4 

5B 20 FOR L-0 TO BL:CX-0:FOR D- 
0 TO 15: READ A: CX-CX*A: POKE 
SA+L»16+D,A:NEXT D 

AS 30 READ A: IF A><CX THENPRINT 



"ERROR IN LINE";LN+CL*10):ST 
OP 

40 40 NEXT L: END 

12 50 DATA 195,169,120,133,251, 
169,204,32,16,196, 160,7, 169, 
0,153,193,2167 

33 60 DATA e,13B, 16,650, 96,56,1 
73,71,31, 237 , 69 , 31 , 72 , 173 , 72 
.31,1516 

09 70 DATA 237.70,31,170.150,0, 
1 69 , 32 . 145 , 73 , 200 , 208 , 251 , 23 
0,74,202,2252 
CF 80 DATA 208,246,104.240.9,17 
0 . 169 , 32 . 1 45 . 73 , 200 , 202 , 208 , 
250,96.160,2512 
39 90 DATA 0,132,171,132,91,132 
, 175, 132, 176. 132, 172, 132, 173 
,132,174,140,2196 

34 100 DATA 68,31,140.237,3,200 
,140,66,31,140,67,31,132,177 
.96,255,1814 

El 110 DATA 76,4,42,76,232,43,1 

33 , 75 , 165 , 166 . 205 , 71 . 3 1 , 208 , 

10, 165, 1702 
ZC 120 DATA 167,205,72,31,208.3 

,76, 120,31 , 165,75,201 ,29,240 
,26, 172, 1821 
IB 130 DATA 68,31,240,3,32,62,4 

8. 164, 172,208,8, 172,66,31,24 

0,3,1548 

E0 140 DATA 76,189,42,160,0,165 
. 75 , 145 . 166 , 230 , 166 , 208 . 2 , 23 

0, 167,56,2077 
Dl 1S0 DATA 165,166,237,64,31,1 

33, 77 , 165 , 167, 237 , 6S, 31 , 5 , 77 
,144,16.1780 
36 160 DATA 165,75,201,29,240.1 

0.165,156,141,64,31,165,167. 

141,65,31,1856 
6E 170 DATA 230,172,165,172,205 

,57.31,208,75, 169,0,133,177, 

165,171,201,2331 
6E 180 DATA 21,208.36,165,75.20 
1.29,240,6.32,72,40,76,128,4 

2.32. 1403 
6B 190 DATA 55.40,32,116,39,165 

,166, 133, 168, 165, 167, 133. 169 
,169,21,133.1882 
0E 200 DATA 91,32.186.45,76,156 
.42,230,171,165,75,32,210.25 
S. 32,232. 2030 
F7 210 DATA 43,169,0,133,172,32 
,239,44,230, 175,208.2,230, 17 
6,32.236,2121 
E6 220 DATA 44,76,120,31,165,75 
, 32 , 210 , 255 , 32 . 239 , 44 , 76 , 120 
,31,172.1722 
02 230 DATA 68,31.240,7,160,1,1 
32, 177, 76,49,42, 164, 175,208. 
4, 164, 1698 

13 240 DATA 176,240.15,201,32,2 
08 , 14 . 1 64 , 1 77 , 208 , 7 . 160 , 1 , 1 3 
2, 177,76, 1988 

6D 250 DATA 120.31,75,49,42,133 

,179, 164, 177,240,3,76,49,42, 

32,236, 1649 
B2 260 DATA 44,165,167,133,169, 

56, 165, 166,229. 172, 133, 168, 1 

76,2, 196, 159,2312 
F2 270 DATA 56,165,168,237,57.3 

1 . 133 , 168 . 1 76 , 2 , 19B , 169 , 160 , 

0, 177, 168,2065 
59 280 DATA 201,32,208,3,200.20 

8 , 247 . 177 . 16B , 201 , 32 . 240 , 9 , 2 

00,204,57.2367 
IS 290 DATA 31,208.244,76,49,42 
, 165, 166, 133,89.165,167,133, 

90,155,89.2012 



60 300 DATA 208,2,198,90,198,89 
. 162,0,160,0,177,89,201,32,2 
40. 11 , 1857 

EB 310 DATA 165,89,208,2.198,90 
, 198,88.232,208.239,134, 178, 

32,232,43,2337 
E2 320 DATA 165 . 167 , 133 . 181 . S6 , 

165, 166,229,178, 133,180. 176, 

2, 198, 181 , 160,2470 
Fl 330 DATA 0,166,178,240.17,17 

7.180,145.166,169,32,145,180 

, 169,29, 32,2025 

67 340 DATA 210,255,200,202,208 
,239,230, 17B, 165, 179, 145, 166 
, 169,29,32,210,2817 

FC 350 DATA 255,24,165.166,101, 
178. 133, 1E6, 144,2,230, 167,24 
, 165, 172. 101,2193 
BF 360 DATA 178,133,172.32,239, 

44 , 55 , 165 , 166 , 237 , 64 , 31 , 133 , 

77,165,167,2059 
CO 370 DATA 237 , 65 , 31 , S . 77 . 144 , 

10, 165, 166. 141 , 64, 31 , 165, 167 

, 141,65, 1674 
34 380 DATA 31,169,1,133,177,16 

5, 167. 133, 169,55, 165, 166,225 
.172,133,169,2234 
A7 390 DATA 176.2,198,169,166,1 

71, 134,91,32, 186,45,56, 165, 1 

68,237,57,2053 
6B 400 DATA 31,133,168,176,2,19 

8, 169,173,67,31,240,3,32.20, 

30, 165, 1639 
A3 410 DATA 171,202,134.91.32,1 

86.45,76. 120,31 . 120, 169.0, 14 

1,171,2, 1691 

68 420 DATA 173,58,31,141,167,2 
,173,60,31, 141, 168,2, 173,61, 
31.141,1554 

61 430 DATA 169,2,173,62.31,141 
,170,2. 166, 171.2^0, 149.24, 17 
3.167,2,1842 

8F 440 DATA 105.64,141.167,2,17 
3,168,2,105,1,141,168,2.24.1 
73. 169, 1605 
08 450 DATA 2.105,40,141,169,2, 
144,3, 23B , 1 70 . 2 . 202 . 208 , 222 , 
88,36,1832 
Fl 460 DATA 127,127,127.127,127 
.127, 127, 127, 127, 127, 127, 127 
,127, 127, 127, 127.2032 
F7 470 DATA 127,127,127,127,127 
, 127, 127, 127, 127, 127, 127, 127 
,127,127,127,127,2032 
E3 480 DATA 127,127,127,127,127 
, 127, 127, 127,76,92,44,76, 150 
,44,24, 173, 1695 
C2 480 DATA 5B , 31 , 109 , 63 , 31 . 133 
,73,24, 165, 172, 109,63,31.170 
.189,0.1421 
98 500 DATA 50,201,46,240,2,208 
,11,228,73,240,23,189,0.50,2 
01,46, 1B08 
73 510 DATA 208,16,169,29.32,21 
0 , 255 , 230 , 1 66 , 206 , 2 , 230 , 167 , 
230,172,232,2556 
DC S20 DATA 208,229,32,239,44,7 
6, 120,31,24, 165, 172, 109,53,3 
1,170.236,1949 
3C 530 DATA 63,31,240,238,189,0 
,50,201,46,240,2,208, 12,236, 
63,31 . 1BS0 
C5 540 DATA 240,224,189,0,50,20 
1 ,46, 20B, 217. 169, 157,32,210, 
255,165,165.2529 
7C 550 DATA 209,2,198.167,198,1 
65 , 198 , 1 72 , 202 , 208 , 226 , 240 , 1 
87,0,0,0,2382 




C64 UTILITY 



PROGRAM: YC WRITER J 



15 10 BL-51 :LN-50 :SA-1150 
0 

5B 20 FDR L-0 TO BL:CX-0:FOR 0- 

0 TO IS: READ A : CX-CX+A : POKE 

SA+L - 16*D,A:NEXT D 
AS 30 READ A: IF AXCX THENPR1NT 

"ERROR IN LINE";LN*tL«10):ST 

OP 

40 40 NEXT L: END 

79 50 DATA 76.242,44,76,61,45,3 

2,60,40, 169,24, 141, 167,2, 169 

,224, 1572 
37 60 DATA 141,168,2,169,3,141, 

169,2, 169,204, 141, 170,2, 169, 

0, 141 , 1791 
BA 70 DATA 171,2,166,175,232,20 

8 , 7 , 24 , 1 65 , 1 76 , 105 , 1 , 20B , 2 , 1 

65,176,1983 
Bl 80 DATA 32,205,189,165,176,2 

08,22, 165,175.201, 10, 176,7, 1 

69,32,32,1964 
DB 90 DATA 210,255,208,6,201,10 

0, 176 , S, 169 , 32, 32 , 210 , 255 , 32 

,63,40,1994 
FE 100 DATA 96,32,60,40,169,72, 

141,167,2,169,224,141,168,2, 

169,9,1661 
52 110 DATA 141,169,2.169,204,1 
41,170,2,169,0,141,171,2,166 

,172,232,2051 
BB 120 DATA 169,0,32,205,189,16 

5 , 1 72 , 201 , 10 , 1 76 , S , 169 , 32 . 32 

,210,255,2022 
FA 130 DATA 32,63,40,96.127,127 

, 127, 127, 127, 127, 127, 127, 127 

, 127, 127, 127, 17SS 
7B 140 DATA 127,127,127,127,253 

, 255 , 25S , 255 , 2S5 , 2SS , 2SS , 255 

, 255 , 255 , 253 , 255 , 3564 
3C 150 DATA 255,255,253,255,255 

, 255 , 255 , 255 , 255 . 255 , 255 , 255 

, 255 , 255 , 253 , 255 , 4076 
98 160 :;ATA 255,255.255,255,255 

, 255 , 255 , 253 , 255 , 255 , 255 , 255 

, 253 , 255 , 255 , 253 . 4074 
46 170 DATA 253.255,253,255,255 

, 2S5 , 255 , 255 , 76 , 189 , 45 , 76 , 2 1 

3, 4S, 76,21, 2777 
28 180 DATA 46,32,186.45,24,165 

, 16B, 109, 57, 31 , 133, 168, 144, 2 

,230,169,1709 
Fl 190 DATA 530,91, IBS, 91, 201,5 
2,208,233,96,169, 192,141,167 

,2, 169,527,2404 

B4 200 DATA 141,168,5,169,120,1 

41.169,2,169,204,141,170,2,1 

66,91.240,2095 
48 210 DATA 34,24,173,157,2,105 
,64, 141 , 167,2, 173, 168,2, 105, 

1,141,1469 
B3 220 DATA 168,2,24,173,169,2, 
105,40, 141 , 169,2, 144,3,238, 1 

70,2, 1552 
FC 230 DATA 202 , 20B , 222 , 169 , 0 , 1 

41, 171,2,96, 165,91,201,0,144 
,74,201,2087 
3C 240 DATA 52,176,70,32,60,40, 

32,183,45, 173,63,31,240,39,1 

73,57, 1436 
69 250 DATA 31,201,80,240,32,12 

0,173,63,31,74, 170,24, 173, 16 

7,5, 105, 1686 
E6 260 DATA 8,141,167,2,144,3,2 

38 , 168 . 2 , 238 , 169 , 2 , 208 , 3 , 238 



,170, 1901 
B5 270 DATA 2,205,508,531,88,16 
0,0, 177, 168, 135,73,35,75,40, 
164,73, 1B55 
03 280 DATA 200,204,57,31,208,2 
41,32,84.40,96, 127, 127, 127, 1 
27, 127, 157, 1955 
8B 590 DATA 157,127,127,127,127 
, 127, 157, 127, 127, 127, 127, 164 
,175,208,11,164,2119 
02 300 DATA 176,208,7,164,172,2 
08 , 3 , 76 , 120 , 31 , 56 , 1 73 , 57 , 31 , 
229, 172, 1BB3 
37 310 DATA 133,178,165,166,133 
,87, 133,89, 133, 168, 165, 167, 1 
33,88, 133,90,5161 
91 350 DATA 133,169,165,89,208, 
2,198,90.198.83,160,0,177,16 
6, 145,89,5078 
43 330 DATA 200 , 196 . 178 , 208 , 247 
, 1 69 , 32 , 14S , 89 , 56 , 1 65 . 168 , 22 
9, 172, 133, 16B,2SSS 
12 340 DATA 176.2,198,169,165,1 
71,133,91,32,186,45, 16S, 165, 
208,5,198,5107 
C8 350 DATA 167 . 198 , 166 . 169 , 157 
,76, 141 ,35, 555,555,255, 2SS, 2 
55 , 255 , 255 , 255 , 3146 
80 360 DATA 255,255.255,255,76, 
230,46,76,56,47, 173,65,31. 13 
3.90,133,5176 
56 370 DATA 88,24,173,64,31,133 
,87, 109,57.31,133,89, 144,2,2 
30,90, 14B5 
82 3B0 DATA 165 , B9 , 14 1 , 64 , 31 , 15 
S, 90, 141 ,65,31 , 160,0, 177,87, 
145,89, 1640 
6B 390 DATA 165 , 87 , 208 , 2 , 198 , BB 
, 198,87, 165, B9, 508, 2, 138,90, 
188,89,2072 

20 400 DATA 165,90.197,169,208. 

230, 165,89, 197, 168,208,224, 1 

60,0, 169,32,2471 
80 410 DATA 145,168,200,204,57, 

31 ,208, 54B, 35, 180,45,96, 165, 

167, 133, 169,5548 
A4 420 DATA 56,165,166,229,172, 

133 , 168 , 176 , 5 , 198 , 169 , S6 , 165 

, 168.237,64,5354 
47 430 DATA 31,133,551,165.169, 

237 , 65 , 31 , S , 251 , 144 , 1 , 96 , 166 

.171.134.20S0 
8C 440 DATA 91,32,530,46,96,32, 

60,40, 169, 158, 141, 167,2, 169, 

226,141,1770 
4F 450 DATA 168,2,163,80,141,16 

9,5,169.204,141,170,2,24. 165 

,172,109.1887 

21 460 DATA 63,31,133,73,106,17 
6,4, 160,0,540,5,160,1, 140. 17 
1,2, 1462 

1C 470 DATA 170,240,27,24,173,1 
67,5, 10S, 8, 141,167,2, 144,3,5 
38,168,1779 
CA 480 DATA 2,238,169.2,208,3,5 
38.170,2,202,208.231 . 166,73. 
189,0,5101 
DB 490 DATA 50,501,46,540,5,169 
,46,76, 184,47.169,47, 157,0,5 
0,32, 1S19 
Bl 500 DATA 510, 2SS , 32, 63 , 40, 76 
,120,31,32, 153,31,32,68,259, 
54, 165, 1528 
E7 510 DATA 12,160,4,32,540,555 
, 169,247, 160,47.32,30, 171, 16 
9,9,133,1870 
B4 520 DATA 21 1 , 169, 24 , 160 , 4B , 3 
2 , 30 . 1 71 , 32 , 228 , 255 , 240 , 251 , 



201,78,240,2370 
01 530 DATA 7,201,89,508.543,76 

, 1 14 , 31 , 76 , 1 1 7 , 31 , B5 , 69 , 65 , 6 

8,89,1566 
54 540 DATA 32 , 84 , 79 . 32 . 69 , B2 , 6 

5 , 83 , 69 , 32 , 87 , 72 , 79 , 76 , 69 , 32 
.1042 

DD SS0 DATA 84,69,88,84.70,73,7 
6,69,33,13,13,0,18,32,65,85, 
869 

43 560 DATA 69,35,89,79,85,35.8 
3,85,82,69,0,0,0,0,0,0,705 



PROGRAM : YC WRITER K 



31 10 BL-48 :LN-S0 :SA-1232 
6 

SB 20 FOR L-0 TO 8L:CX-0:FOR D- 

0 TO IS: READ A : CX-CX+A : POKE 

SA*L*16*D, A: NEXT D 
AS 30 READ A: IF AXCX THENPRINT 

"ERROR IN LINE":LN*CL*105:ST 

OP 

40 40 NEXT L: END 

7C 50 DATA 63,35,40,89,47,78,41 
,35, 146.0,127,127, 127, 127,12 

7, 127, 1330 
73 60 DATA 127,127,127,127,127, 

127, 127, 127, 165, 166, 133,93, 1 

33,168,165,167,2206 
05 70 DATA 133,94,133,169,165,9 

4,133,98,56,165,93,229, 172,1 

33,97,133,2097 
7C 80 DATA 168,176,4,198,98,199 
,169,165,171,133,91,133,80,1 

33,86,76,2079 
AD 90 DATA 115,48,24,165,97,105 

,2,133,97, 144,2,230,98,206,5 

8,31 , 1SS5 
BE 100 DATA 54,165,97,109,58,31 
,133,97,144,5,530,98,238,58, 

31,230,1745 
0B 110 DATA 91.230,86,160,0,177 
. 97 , 201 , 32 , 20B , 9 , 200 , 177 , 97 , 

201,32.1998 
S3 150 DATA 508,208,240,71,160, 

2,177,97,201,35,208, 198,200, 

177,87,201,2477 
0E 130 DATA 32.508,131,177,97,5 

01 , 35 , 208 , 14 . 200 , 204 , 57 , 31 , 2 

08,244,230,2334 
4B 140 DATA 97,508,40,230,98,20 

8,36,165,91,72,165,168,72,16 

5,169,72,2056 
C0 150 DATA 165,98,133,169,24,1 

65,97,105,2, 133,168,144,5,53 

0,169,32,1836 
DE 160 DATA 224,46,104,133,169, 

104,133, 168.104, 133,91,230,9 

7, 20B, 2,230,2176 
IB 170 DATA 98, S6, 165,97,229, 16 

6,133.99,165,99,229, 167,133. 

100,56,165,2156 
DB 180 DATA 37,237,64,31,133,73 
,165,98,237,65,31.5,73,144.1 

0,165,1626 
2C 190 DATA 97,141,64,31,165,99 

, 141 , 65 , 31 , 165 , 97 , 133 , 95 , 155 

,99,133,1719 

A0 200 DATA 96,165,95,208.5,198 
. 96 , 198 , 95 , 1 65 , 93 , 1 97 , 97 , 50B 
,6,165,5094 

2C 510 DATA 94,197,98,240,55,16 
0,0, 177,95, 145,97, 165,9S,50B 
,2,198,1996 
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94 250 DATA 95,198,95,165.97,50 

8,5, 198, 9B. 198,97,76,31,49. 1 

65, BO, 1853 
Al 230 DATA 133,91,33,186,45,24 

, 16S, 16B, 109,57,31, 133, 168. 1 

44,2,230. 1718 
2E 240 DATA 169,230,80,165,80,1 

97.B5,50B,559,96, 127, 127. 127 

. 127, 127, 127,2302 
2C 250 DATA 127,127,157,127,165 

, 167, 133, 169, 133, BB, 133, 90,5 

6. 165, 166,259,2202 
74 260 DATA 175,133,168,133,89, 

176,4, 198, 169, 199,30,54,165, 

168.109,57,2053 
07 270 DATA 31,133,67,144.2,230 

,88,56, 165,87,237,64, 31, 133, 

91,165,1744 
□E 280 DATA 88,237.66,31,5,91,1 

44,3,76.120,31, 160,0, 177,87, 

145, 1460 

EB 290 DATA 69 , 230 , 89 , 50B , 5 , 230 
,90.230.87,208,2,230,88,173, 

64, 31,2051 
7A 300 DATA 197,87,208,231,173, 

65,31,197,88.208,524, 160,0, 1 

65,87, 197,2318 
3E 310 DATA 89,208,6,165,88,197 
,30,540, 14, 165,87.508,5, 19B, 

88,199,2043 
63 350 DATA 87,169,35,145,87,50 

8 , 230, 165, 171 , 133, 31 , 35, 180 , 

45,165,89,2029 
04 330 DATA 141,64,31,165,90,14 

1 , 65 , 31 , 76 , 120 , 31 , 253 , 255 , 55 

5,255,25S,255B 
E5 340 DATA 255,255,555,255,255 
, 555 , 255 , 255 , 25S , 255 ,551,46, 

46,46,46,58.3013 
5F 350 DATA 46,46,46,46,221,46, 

46 , 46 , 46 , 58 , 46 , 46 . 46 , 46 , 221 , 

46.103B 

EE 3G0 DATA 46,46,46,58,46,46,4 
6 , 46 . 221 , 46 , 46 , 46 , 46 , 58 , 46 , 4 
6,335 

57 370 DATA 46,46,521,46.46,46. 
46 , SB , 46 , 46 , 46 . 46 , 221 , 46 , 46 , 
46, 1099 

32 380 DATA 46,58.46,46,46,46,5 
21 , 46 , 46 , 46 , 46 , 58 , 46, 46 , 46 , 4 
6,935 

9E 390 DATA 221.46,46,46,46,58, 
46,46,46,46.0, 127,35,60,40,1 
63, 1075 

5F 400 DATA 128,141,157,2,169,5 

56, 141,168,2. 163, B0, 141, 169. 
5,169,204,2079 
99 410 DATA 141,170,2,169,0,141 
,171,2,162,0, 183,0.50.201,46 
,240, 1664 
78 420 DATA 27,201,47.240,53,16 
9.46,157,0,50,134,74,32.75,4 
0, 166, 147B 
2B 430 DATA 74 , 232 , 254 , 80 , 50B , 5 
39 , 32 , 63 , 40 , 76 , 120 . 31 . 162 , 79 
, 199, 19, 1BGB 
84 440 DATA 39,157,0,50,202,16, 
247, 162,0, 183,0,50,134,73.32 
.72, 1423 

B7 450 DATA 40 , 166 , 73, 232 , 524 , B 

0 . 208 , 24 1 . 76 , 1 40 , 50 , 255 , 255 , 
255.255, 255, 2B05 
BC 460 DATA 255 . 255 , 255 , 255 , 25S 

, 2SS , 555 , 555 , 555 , 255 , 2SS , 2S3 

,255,255,8,40,3616 
D0 470 DATA B , 40 , 76 , 206 , 50 . 76 , 5 

, 51 , 56 , 1 65 , 1 66 , 237 , 64 . 31 , 1 33 

.73,1437 



SB 480 DATA 165,167,237,65,31,5 
,73, 176,5, 144,31, 165, 166.208 
.2. 198, 1835 
F9 490 DATA 167,198,166,160,0,1 
77,166,201.35,240.9,230, 173, 
508,5,530,2359 
44 500 DATA 174 , 32 , S , 51 , 230, 166 
.208,5,230, 167, 169,35,76,254 
,41,32, 1869 
IF 510 DATA 60,40,169,112,141,1 
67,2,169,224,141,168,2,169,1 
3,141,169.1887 
7B 520 DATA 2,169,204,141,170,2 
.169.1,141,171,5.166.173,165 
, 174.35, 1882 
B6 S30 DATA 205 . 1B9 , 165 , 174 , 20B 
,22, 165,0,0,0.0,0,0.0,0,0,11 
58 



PROGRAM : YC WRITER L 



2C 10 BL-50 :LN-S0 :5A-13I0 
1 

SB 50 FOR L-0 TO BL:CX-0:FOR 0- 
0 TQ 15: READ A : CX-CX+A : POKE 
SA+L*16+D,A:NEXT D 

AS 30 READ A: IF AXCX TKENPRINT 
"ERROR IN LINE";LN*(L-10):ST 
OP 

40 40 NEXT L: END 

00 50 DATA 173,201,10,176,7,169 
, 32 , 32 , 510 . 555 , 208 , 6 , 501 , 1 00 
, 176, S. 1961 

26 60 DATA 169 , 32 , 32 , 210 , 2SS , 35 
, 63 , 40 , 96 . 77 , 79 , 86 , 69 , 3B , 84 . 
65,1451 

EE 70 DATA 66,80,79,83,73,84,73 
,79,7B,3S,70,79,B5,B7,65.82, 
1192 

38 B0 DATA 68,169,0,133,173,133 
, 174, 165. 166, 133.87, 165.167. 

133,88.230,2184 
8F 90 DATA 67,606,2,230,88,165, 

87 , 205 , 64 , 31 , 208 , 8 , 16S , BB, 50 

5,65, 1906 
F4 100 DATA 31,509,1.96,150,173 
, 63, 31, 133, B7, 133, 92, 173, 70, 

31.133,1581 
EA 110 DATA 88,133,33,54,165,92 
. 109.58,31,133,92,144,2.230. 

93, 169, 1656 
C6 120 DATA 0,133,89,133,30,133 
,91, 160, 0, 1 77, B7, 201, 32, 240. 

6.169,1741 
63 130 DATA 0,133,83,240,14,165 
,83,509,10, 169, 1 , 133, B9, 530. 

173,208, 1951 
47 140 DATA 2,530,174,230,87,20 

8 . 2 , 230 , 88 . 1 65 , 87 , 205 , 64 . 3 1 , 

208,215,2256 
3C 1S0 DATA 165,88,205,65,31,20 

8 , 20B , 56 . 173 , 64 , 31 , 229 , 92 , 13 

3.94,173,2015 
68 160 DATA 65,31,259,93,5,94,1 

44 , 3S , 160 , 0 , 177 , 35 . 501 , 32 , 24 

0, 13, 1611 
Bl 170 DATA 200.177,92,201,32,2 

40 , 6 , 530 , 90 , 208 , 5 , 230 . 91 , 24 , 

16S,92,5080 
00 180 DATA 109,57,31,133,92,14 

4 , 208 , 230 , 33 , 176 , 204 , 54 . 1 65 , 
173, 101,90,5030 



5B 190 DATA 133,173,165,174,101 
,91, 133, 174, B8, 32, 59,55, 35,5 

03,50,96,1756 
7C 500 DATA 32,60.40,153.115.14 

1,167,2,169,224,141,168,2,16 

9, 13, 141 , 1750 
85 210 DATA 169,2,169,204,141,1 

70,2.163, 1,141,171,5,162.5.1 

69,35. 1703 
E2 220 DATA 32.210,255,202,208, 

250,35,63,40,96,76,77,55,76, 
135,53, 1854 
B8 530 DATA 35.123,31,32.92,193 
.169.60, 133, 17B, 169,3, 133, 17 

9. 162, 15, 1704 
EB 240 DATA 183,97,31,201,32,20 

8, 3,205,208,246,232, 139, 162, 

97.160,31,2237 
00 550 DATA 35.189,555,169,1,17 

4 . 74 , 31 , 168 , 32 , 186 , 255 , 163 , 0 

,32,213,1980 
49 260 DATA 2SS , 144 , 13, 173, 74 , 3 

1,201, 1.240.3,32, 170, S4, 76. 1 

17,31,1615 
05 270 DATA 142 , 64 , 31 , 140 , 6S . 31 

, 169.0, 133, 198, 173,69, 31, 133 

, 16B, 133, 1680 
29 580 DATA 166,173,70,31.133,1 

69, 133, 167, 133,555,56. 165, 16 

6,533,7,133,2187 
57 590 DATA 251,175,5,199,252,1 

60,0,177,251,141,57.31,200.1 

77.251,141.2465 

15 300 DATA 58,31,200,177,251,1 
41,59,31,200, 177,551, 141,60, 
31,500.177.5185 

47 310 DATA 551,141,61,31,500,1 

77 , 2S1 . 14 1 , 62 , 3 1 , 200 . 1 77 . 25 1 

, 141 ,63,31 ,2209 
20 320 DATA 32,81,40,173,59,31, 

141,167,2,173,60,31,141,168, 

2, 173, 1474 
DA 330 DATA 61,31,141,159,2,173 

,62,31.141,170,2,169,0.141,1 

71,2,1166 
CE 340 DATA 32,180.45,173.63,31 

,50B, 13, 173,57,31 ,501 ,80,240 

.6B.32, 1627 
98 350 DATA 60,40,76,41.53,32,6 

0,40,173,63,31.74,133.73,35, 

IBB, 1169 

C3 360 DATA 28,24.173,63,31.109 
, 57 , 31 , 501 . B0 , 540 . 36 , 173 , 58 . 
31,74, 1409 
6E 370 DATA 170,54,173,167,5,10 
5,8, 141, 167,2, 144,3.238,168, 
2,202, 1716 
FS 380 DATA 208.239,165,172,72, 
173,58,31, 133,172,32. 131.58, 
104, 133.175,2083 
97 390 DATA 35,63.40,150,32,135 
. 194 . 35 , 536 , 44 , 32 , 239 , 44 , 35 , 
94,51 . 1450 
0C 400 DATA 76,150,31,18,35,80, 
82 , 63 , 83 , 83 , 32 , 65 . 78 , 83 , 32 , 7 
S, 1015 

CI 410 DATA 69,89,32,84,79,32,8 
2 , 69 , 84 , B5 , 85 . 78 , 32 , 84 , 79 , 32 
, 1092 

16 420 DATA 64,69,88.84,32,146, 
0 , 32, 123 , 31 , 32 . 68 . 559 , 54 , 165 
.12, 1516 

IF 430 DATA 160, B , 32, 240. 2SS, 17 

3 . 74 , 31 , 201 . 1 , 240 , 1 0 , 165 , 2S5 

,240,6,5091 
0C 440 DATA 35,8,62,76,170,53,1 

69,80, 160,54,32,30, 171, 169,9 

,133, 1408 



VOIR COMMODORi; SKKKH'S I'SKRS (it'lDl-] 



C64 UTILITY 



E5 450 DATA 311.169,106,160,54, 
35 , 30 , 171 , 38 , 556 , 555, 540 , 551 
,501,78,506.5456 

07 460 DATA 3,76,77.54,501,89,8 

08,840,173,74,31.801,1,840.7 
, 165, 1840 

B4 470 DATA 855,840,3,35.11,65, 
173,70,31, 133,555,56, 173,69. 
31,533,1954 

59 490 DATA 7,133,851,176.8,199 
,855, 160,0, 173,57,31, 145,551 
,500, 173,5809 

AF 480 DATA 59,31,145,851,800,1 

73,59,31, 145,851,800, 173.60. 

31, 14S, 551, 8504 
91 500 DATA 500,173,61,31,145,5 

51 , 500 , 173 , 65 , 31 , 145 , 551 , 500 

,173,63,31,5190 
11 510 DATA 145,551,169,60,133, 

178, 169,3, 133, 179, 168, 16,505 

,169,80,31,8100 
0F 550 DATA 501,35,840,848,838, 

1 38 , 1 68 , 80 , 1 60 , 3 1 , 38 , 1 89 , 555 

,169,3,174,8346 

60 530 DATA 74,31,160,555,35,18 
6, 555, 169 , 5S1 , 174 , 64 , 31 , 175, 
65,31.535,5188 

7B 540 DATA 808,1,800,38,551,54 
5,173,74,31,501,1,540,3,38,1 
70,54,1886 

BB 550 DATA 0,0,0,0,0,0,0.0,0.0 
.0,0.0,0,0,0,0 



PROGRAtl : YC URITER M 



14 10 BL-50 :LN-50 :SA-1390 
1 

5B 50 FDR L-0 TO BL:CX-0:FOR D- 

0 TD 15 : READ A CX-CX*A : POKE 

5A*L*16»D , A : NEXT D 
A5 30 READ A: IF A><CX THENPRINT 

"ERROR IN LINE";LN+CL-10):ST 

OP 

40 40 NEXT L: END 

D4 50 DATA 76,117,31,88,69,65,6 
8 , 89 , 35 , 84 , 78 , 35 , 83 , 65 , 86 , 69 
,1187 

5D 60 DATA 35,84,69,88,84,70,73 
,76,69,33,13, 13,0, 18,35.65,8 
19 

3D 70 DATA 88 , 69 , 35 , B9 , 79 , 85 , 35 
, 83, B5, 98, 69, 63, 38, 40. 89, 47, 
1058 

99 80 DATA 78,41,35,146,13,13,0 
, 169,0,35,189,555,169, 15,165 
,8. 1355 

IE 90 DATA 169,35,186,855,35,19 
5,555, 165, IS, 38, 199, SSS, 166, 
144,506,9,5309 
D3 100 DATA 38, 507, 555, 35, 810, 8 
55, 76 , 153 , 54 , 35 , 504 , 555 , 86 , 1 
69,13,38,5075 
F3 110 DATA 810,555,35,510,555. 
169,7,133,511,169,1,133,504, 
35,135,54,5507 
49 150 DATA 169 , 13, 35, 510 , SSS, 3 
5,510,555,169,4,133.511,169, 
96,160,53,8171 
OB 130 DATA 35,30,171,35,558,85 
5,540, 551 , 96, 169, 13, 35, 510,5 
55.35.510.5556 



F8 140 DATA 555,169,4,133,511,1 

69,110,160,53.35,30,171,35,5 

58,555,840,5555 
FB 150 DATA 551,96,81,173,33,50 

8 , 1 33 , B8 . 1 73 , 38 , 68 , 559 , 35 , 15 

5.195,35,1970 
4B 160 DATA 185,195,173,35,508, 

133,81, 173, 33, 80B, 133, BS, 173 

, 134,5, 133,8075 
CD 170 DATA 83,169,0,141,38,508 

.141,33,808,169,1,133,90,38, 

170,55,1655 
9S 190 DATA 35 , 558 , 555 , 540 , SSI , 

501. 13, S0B, 54, 165.80.508. 10. 

169,1,133,5518 
67 190 DATA 80.35,170,55,76,59, 

SS. 169,0.133,90,35, 147,58.76 

,59, 1551 

6F 500 DATA 55,501,133,506,519, 

155,81 , 141 . 35, 508, 16S.88, 141 

.33,508, 165,5537 
EF 810 DATA 83,141,134,5,150,35 

, 1 35 , 1 94 , 76 , 1 50 , 3 1 , 35 , 66 , 889 

,76, 155, 1596 
41 550 DATA 31,7,171,60,67,79,7 

6,79,95,95.0, 108, 7, 154,83,75 

, 1164 

F3 530 DATA 73,80,53,0,118,7,17 
9,65,67,79.76,79,85,85,0, 15B 
,1168 

F7 540 DATA 7 . 59 , 0 , 13B , 7 , 83 . 75 , 
73 . 80 , 53 . 168 , 3S , 60 , 84 , 69 , BB , 
1079 

DF 550 DATA 84,50,0,148,7,177,3 
5 , 68 , 84 , 69 , 8B , 84 , 50 , 0 , 159 , 7 , 
1103 

EF 560 DATA 153,36,65,66,49,69, 
0, 169,7, S9.0, 178.7,76, 179, SS 
,1167 

El 570 DATA 76 . 61 , S6 , 76 , 86 , 55 , 1 
69,0.133,97,169,4, 133,88, 169 
,0, 1363 

93 SB0 DATA 133 , 89 , 169 , 516, 133 , 

90.35, 68,859, 160,0, 169.85, 14 

5,97, 169, 1974 
Al 590 DATA 6,145,99,500,169,67 

, 145,97, 169,6, 145,99, 198,38, 

50B.543, 1998 
^8 300 DATA 500, 169,73, 14S, 87, 1 

69,6,145,89,38,61,56,185,150 

,S6,840, 1B53 
30 310 DATA 9,145,87.169,6,145, 

89 , 800 , 508 , 545 , 35 , 61 , 56 , 185 , 

191,56, 1861 
'6 350 DATA 540,9,145,87,169.6, 

145 , 89 , 800 , 508 . 545 , 35 , 61 , S6 , 

169,74, 1935 
IE 330 DATA 145,67, 169,6, 145, B9 

,500,169,67.145,87,169,6,145 

,B9, 198, 1910 
F8 340 DATA 38.508,543,500,169, 

75, 145,97, 169,6, 145,89,35,61 

,56,35,1755 
13 350 DATA 61,56,169,535,133,8 

4, 169,56, 133, B5, 165, 16.35,86 

,56,96, 1686 
DE 360 DATA 84,165,87,105,40,13 

3,87, 144,5,530,88,54, 165 ,B9, 

10S,40,158B 
30 370 DATA 133,89,144,8,830,90 

.160,0,96, 169.0, 133,73,160,0 

,177,1656 
53 380 DATA 84,540,36,501.554,5 

40 , IS , 501 . 5S5 , 50B , 17 , 38 , 61 , S 
6,530,84,5514 
SD 390 DATA 808 , 835, 830 . 85 , 506 , 
831,169,188,133,73,808,545,6 

9,73.145.87.8584 



56 400 DATA 169.6,145,89.800,80 
8,516,54.500, 1S8, 101 ,84,133, 
84, 144,8. 1957 

95 410 DATA 530,85,35,61,56,505 
,508, 197,96,93.35,35,35,35,3 

8,35, 1455 
69 450 DATA 35.35,35,48,48,45,3 

5.39,85,3,38,53, 18.9,80,5,48 

8 

C5 430 DATA 18,39,35,45,48,45,3 
8.38,38,38,38,38.35,35,35,35 
,535 

B3 440 DATA 93,0,93,40,3.41,35, 
49,57,56,55,38,8,45,8,35,638 

B0 450 DATA 15,5,8,13,1,14,14,3 
8,35,35,35,35,88,5, 18, 19,891 

C0 460 DATA 9,15,14,38,1,47,53, 
47,49,93,0,50,5,54,50,45,474 

C4 470 DATA 5,14,50,18.55,35,13 
,15,4,5, 19,58,0,45.45,45,363 

57 480 DATA 4S , 45 , 45 . 45 , 45 . 4S , 4 
5.45,45,45, 45, 45, 45, 4S, 0,53, 
653 

A9 490 DATA 35,45,35,53.15,16,4 
,35,53,18,1,16,38,15,14,47,3 
67 

BC 500 DATA IS, 6, 6,0. 10, 35, 45, 3 

5,18,9,7,8,50,38,10,51,571 
C5 510 DATA 19,50,9,6,9,3.1,50, 

9, 15, 14, 35, IS, 14,47, 15,548 
94 580 DATA 6,6,0,9,35,45,35,9, 

14.19,5, 18,50,35, 13, 15,575 
A6 530 DATA 4,5,35,15,14,47,15, 

6,6,0,555,6, 15,18, 13, 1,455 
63 S40 DATA 50,9.14,7,35,6,1,3, 

9,15,9,50,9.5,19,58,533 
BB SS0 DATA 0,0,0,0,0,0,0,0,0,0 

,0,0,0,0,0,0.0 



PROGRAM: YC WRITER N 



IS 10 BL-50 :LN-S0 :5A-1470 
1 

5B 80 FOR L-0 TO BL;CX-0:FOR D- 

0 TO 15 : READ A : CX"CX*A : POKE 

SA-L-16*D,A:NEXT D 
AS 30 READ A: IF AXCX THENPRINT 

"ERROR IN LINE";LN*(L-10):ST 

OP 

40 40 NEXT L: END 

E6 50 DATA 0,45,45,45,45,45,45, 
45, 45. 45, 45, 4S, 45 ,45. 45, 45, 6 
75 

88 60 DATA 45,45,45,45,45,45,0, 
3,38,45,38,51. 14,45,10,51,49 
3 

9C 70 DATA 19,50,9,6,55,35,16,1 

,18,1.7.18,1, 16,8,38.859 
C7 80 DATA 51,14,4,5,18,38,3,51 

, IB, 19,15, 19,0.4,35.45,569 
BE 90 DATA 35, 18.9.7, 8,80,32,10 

.51,19,50,9,6,55,35.16,584 
9A 100 DATA 1,18.1,7,18,1,16,8. 

35.51, 14,4. S. IB, 35.3. 199 
EC 110 DATA 51.18.19,15,19,0,1. 
35,45,38,9, 14, 19,5, 19,50. 5B6 



VOI R COMMODORE SERIOtS 1SERS GUIDE 



C64 UTILITY 



3B 150 DATA 35,5, 13, 16,20,25,35 

, 15,9, 11 ,5, 35, 1 ,50, 35,3,271 
BC 130 DATA 51,18,15,15,18.0,55 

5, S, 18,1,19.5.35,6, 1,3,438 
2D 140 DATA 9,12,9,50,5,5,18,58 

, 0 , 45 , 45 , 45 , 45 , 45 , 45 , 45 , 456 
FE 150 DATA 45,45,45,45,45,45,4 
5 , 45 , 45 , 45 , 0 , 2 , 32 , 45 , 32 , 5 , 56 
6 

DC 160 DATA 18,1,19,5,32,12,9,1 

4,5,32,21. 14,4,5, 18,32,541 
D0 170 DATA 3,21, 18, 19, 15, IB, 0, 

11,35,45,32.5, IB, 1,19,5,262 
EC 1B0 DATA 35,3,21,18,18,5.14. 

20.32,2, 12, 15,3, 11,0,5,211 
0C 190 DATA 32,45,35,5,18,1,19, 

5,32,23,8, IS, 12,5,32,20.304 
64 200 DATA 5,24,20,6,9,12,5.0, 

2S5 , 2SS , 254 , 32 , 32 , 6 , 49 , 32 , 99 

6 

09 210 DATA 45,32,2,1,3,11,32,2 
0 , 15 , 32 , 20 , 5 , 24 , 20 , 32 , 32 , 326 

DE 220 DATA 32,18.5,50,32,45,32 
,13, IS, 18.5, 32, 6,5, 12, IB, 30B 

2A 230 DATA 32,32,35,0,89,0.168 
. 0.133. 87. 169. 4.133, BB, 169,0 
,1137 

BF 540 DATA 133,89,169,516,133, 

90,35,66,229, 169, 180, 133,84, 

169,58,133,2085 
F7 250 DATA 85.162,21,32,176.55 

.96,2, 12, 15,3,11,45,13, 15,22 

,765 

D9 260 DATA 5,32.6,1,3,9,12,9,2 
0,9,5, 19,58.0.45,45,578 

FD 270 DATA 45 , 4S , 45 , 45 , 45 , 45 , 4 
5,45,45,45, 4S, 45, 45, 45, 45, 4S 
,720 

FC 2B0 DATA 45,45,45,45,0,7,35, 
45,35, 13, S, 50 ,32, 19,20. 1,415 

0F 590 DATA IB, 50 , 47 , 5. 14 , 4 , 35 , 
15,6.32.2, 12,15,3, 11,0,236 

67 300 DATA 6,32.45,35,3,15,16, 
2S, 32, 3, 21 , IB, IB, 5, 14,20,307 

91 310 DATA 32,2,12,15,3,11,32. 
50, 15,32,3,21, IB, 19,15, 18,56 
8 

CC 320 DATA 0,15,32,45,32,13.15 
,25, 5, 35 ,3. 21, IB, 16,5,14. 290 

2D 330 DATA 50,32,2,12.15.3,11, 
32,20,15,32,3,21,18.19,15,57 
0 

CB 340 DATA 18 , 0, 555 , 13, 1 , IB , 7 . 

9,14.32,6,1,3.9,15,9,407 
99 350 DATA 20,9,5,19,58,0,45,4 

S , 45 , 45 , 45 , 45 , 45 , 45 , 45 , 45 , 56 

1 

FD 360 DATA 45,45,45.45,45,45,4 
5 , 4S , 0 . 54 , 32 , 45 , 32 , 1 3 , 5 , 50 , 5 
37 

E4 370 DATA 35,12,5,6.20.32,13, 

1,18,7,3, 14,0,25,32.45,271 
FE 380 DATA 35.13,5,50,35,18,3, 

7 , 8 , 50 , 32 , 1 3 , 1 , 18 , 7 , 3 , 250 
C2 330 DATA 14,0,555,50,1,5,35. 

6,1,3,3, 15, 3, 50, 3, 5, 398 
3C 400 DATA 19,58,0,45,45,45,45 
, 45, 45 , 45 , 45 , 45 , 45 , 45 . 45 . 45 , 

665 

D5 410 DATA 45,45,0.6,53.35,45, 
35, 10,21. 13,16,32,20, 15,32,4 
17 

B4 420 DATA 14,5,24,20,32.20,1, 



2,45, 16, 15, 13,3,20,3, 15,266 
C3 430 DATA 14,0,6,54,32,45,32, 
10,51,13, 16,32,20,15,32,6,34 
8 

Fl 440 DATA 15,18,13,5,18,32,20 

, 1, 2, 4S, 16, 15, 13,3,50.3,557 
4D 450 DATA 15,14,0,6,35,45.35, 

3,15,5, 1,18,47,18,5, 13,272 
4B 460 DATA 20,15.18,5,35,1,15, 

12,32,50,1,2.45. 16, 15,13,265 
EA 470 DATA 3,20,3,15,14,13,0,5 

0.32.45,32,3,12,5.1,18,254 
F4 480 DATA 47,18,5,13,20,15,18 

,5,32.13,3,14,7,15,5,35,577 
18 430 DATA 50,1,2,45,16,15,13, 

3,50,3,15,14,0,555, 15,50,475 

A4 500 DATA 8,5,18,13,58,0,45,4 
5,45,45.45,45,45.32,32,32.51 
3 

9A 510 DATA 35,32,32,35,35.32,3 
5,35,32.93.32,21,32,45,32,23 
,566 

4F 520 DATA 15 , IB , 4 , 3 . IS , 21 , 14 , 
20 , 0 , 1 5 , 35 . 45 , 35 , 1 2 , 1 5 , 1 . 253 

04 530 DATA 4,32.6.9,12.5.32,32 
, 32 . 32 . 32 , 35 . 93 . 32 . 1 4 . 32 . 43 1 

F7 540 DATA 45,32,3,8,1,14.7,5, 
32,6,9,12,5.14,1,13.507 

BB 550 DATA 0.0,0,0,0.0,0,0,0,0 
,0,0,0,0.0.0,0 



PPCGPAM. YC WRITER □ 



78 10 BL-30 :LN-S0 :SA-15S0 
1 

SB 20 FOR L-0 TO BL:CX-0:FOR D- 

0 TO 15: READ A: CX"CX*A: POKE 

SA*L"16+D, A : NEXT D 
AS 30 READ A; IF AXCX THENPRINT 

"ERROR IN LINE";LN*CL-10J;ST 

OP 

AC 40 NEXT L:PRINT'-CD0UIN2D6ET R 
EADY TO SAUE AND PRESS A KEY 
M :POKE198,0:UAIT13a,l 
ED 45 P0KE43,39:P0KE44.52:P0KE4 
5.142:P0KE46,62:X-PEEK(1B6) : 
SAUE"WRITER2 H .X 
5F 50 DATA 5,0,13,35,45,35,13,1 

,22,5,32,6,3, 12,5,35,276 
EE 60 DATA 35,32.32,32,32,33,35 

, 13, 32 , 45 , 32 , 3 . 8 , 1 , 14 , 7 , 440 
7C 70 DATA 5,32,3,15.12,15,21,1 

8.13.0,18,32,45,32,18,5,230 
IF B0 DATA 16,12,1,3,5,32,6,3,1 

2 , S , 32 , 32 , 32 , 33 , 32 , 1 6 , 338 
98 30 DATA 32,45,32.16,18,9,14. 
20, IS, 21 ,50,0,255.254.32,32. 
815 

B2 100 DATA 6 . 43 , 35 , 4S , 35 . 5 , 1 , 3 
,11.35,50,15,32,20,5,24,323 

5B 110 DATA 50.32,32,32,18,5,50 
,35,45,35, 13.15, 18,5,32,8,35 
3 

8A 120 DATA 5,15,16,35,32,32.0. 
32, 123,31.32,68,229,54,165.1 
0,840 

4E 130 DATA 160,10,35,240,255,5 

5 , 1 73 , 35 , 508 , 233 , 240 , 133 , 77 , 

169, 104, 160.5565 
C7 140 DATA 61,32,169,61,144,3, 

14 1 , 32 , 208 , 56 , 1 73 , 33 , 208 , 233 

,240,133,1927 



51 1S0 DATA 77,169,120,160,61,3 

2.169,61,144,3,141,33,209,17 

3, 134,5, 1687 
A3 160 DATA 133,77,163,135,160, 

61.32,169,61, 144,3,141,134,2 
,198,211,1830 
16 170 DATA 169,148,160,61,32,3 

0.171, 32,228,2SS, 240, 551 .501 
,7B, 540, 170,5466 
7D 180 DATA 501,89,208,543,150, 

35.132, 134,76,120,31,66,73,8 

2,68,69,1810 
AC 130 DATA 82,32,67,79,76,79,8 

5,62, SB, 32,0. 80, 65,80.63,62, 

104B 

54 200 DATA 32.67,73,76,73,85,8 
2 , SB , 35 , 0 , 73 , 78 , 75 , 35 , 67 , 73 . 
334 

04 510 DATA 76.79,85,85,58,35,0 

,18,35.83.65,84,73,83,70,73, 
993 

5A 550 DATA 63,68,63,32.40,89,4 
7,78,41,35.146,0,35.30,171.1 
65.1103 

C3 530 DATA 511,72,163.0,166,77 
.32,505,183. 104, 133,511,165. 

0,134,73,1338 
AD 540 DATA 134.74,134,75,32,25 

8 , 255 , 240 , 551 . 501 . 1 3 , 240 , 26 , 

201,48,144,2296 
35 2S0 DATA 243,501,58,176.239, 

35,510,255.73,48,166,75.149, 

73,232,554,5454 
3E 260 DATA 2,134,75,540.2,208, 

221,169,13,32,510,255.32,510 
,555, 169,5227 
B5 270 DATA 10,133,211,166,75,2 

08,5,54,36,54,165,10,163,0, 1 

01,73, 1464 
5E 580 DATA 505,508.251,101,74, 

56, 36. S3, 42. 42. 42, 76, 14,62,7 

6,55, 1453 

55 530 DATA 65,163,88,160,65,35 
,30.171,36,165.0.189,78.31.1 
57.65,1555 

3D 300 DATA 3,501,32,208,11,232 
, 183 , 78 , 31 , 20 1 , 32 , 208 , 238 , 20 
2,208,5,2079 
24 310 DATA 235,524,18,208,230, 
169,0,157,65,3.169,0,32,183, 
255, 163,2120 
8E 320 DATA 15,174,74,31,166,35 
, 1B6,555, 35, 132.255. 162, IS, 3 
2,201,255,2073 
1A 330 DATA 169,65,160,3.32,30, 
171 ,32, 181 , 171 ,36.82,63,65,6 
8,83. 1483 
8B 340 DATA 32,84.73.32,82,63,8 
0.76,65,67,63,35.84,69,88,84 
, 1095 

57 350 DATA 70.73,76,69,33,13,1 
3,0,0.0,0,0,0,0.0.0,347 



PR06RAM: WRITER BOOT 



C9 5 A"A+1 : Y-PEEKC 186) 
13 10 I FA"1THENL0AD "URI TER1 " , Y , 
1 

B3 20 I FA-5THENL0AD"UJRITER5" , Y, 
1 

43 30 I FA-3THENSYS8050 
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COMMODORE I'KOORAMMINO 



All you ever wanted to know about your Commodore but 

were afraid to ask. 



M 

1 TM. ost programmers spend a lot of their time sitting through 
piles of technical books looking for the address of a certain 
routine or trying to find the POKE to perform a certain function. 

Now you can throw away your books, as on the following 
pages you will find a wealth of information about all of the 
popular Commodore computers. 

Advanced programmers will find the memory maps 



invaluable while both beginners and old hands alike will find 
the Hex converter, the hints and tips and much more, to their 
liking. 

Most of the information provided here is useful by itself. 
Some information, such as the addresses of routines within the 
ROMs, will be of more use when used together with a ROM 
disassembly. 



NIX ADDRESS BII DESCRIPTION Or ROUTINE 



*bb:i aais 
SM1G 
ibb: • w.i 
■8B19-B821 

leees-BBeo 



18B33-BB31 
IBB 35 -BB 36 
tBB37-fl«3e 
IBB3S-8B3A 
fM3B-B03C 
1083D-083E 
Sea 3F -B818 
■ce-i 1 -881? 
sests-eeii 
•ueis-ea-tG 

SMH7-BB-18 



iNSf-eeee 
teeei 

•••62-BBB5 

JOCF-. 



1B36S BBGE 

SBB6F 



1 7 C ■ OB 7 2 



1BB1 ' 



IB* 



Pol "tar: 
Pointer: 
Pointer: 
Pointer , 
Pointer: 
Pointer: 
Pointer: 



Ceseetts control 
1 Ceesette read 
3 Caeeette - ■ ;r CI 
1 Caeeette write 

B-lOAD 1-VERIFY 

Type: FF-etring. B«-numerlc 

Type: 6*-lnteger. B8-Moatlng 

DATA scen/LISI quota/memory flag 

Integer value 

Pointer temporary string steck 
Laat tamp string vector 
Temporary etring stack 
Utility pomtar area 
Product area for multiplication 
atart of basic 
start of basic variebles 
start of arrays 
and of arrays 
bottom of strings 
current string 
top Of basic asaory 
Currant basic line number 
CHARGE! pointer 

Pointer: CONT basic Una nuabar 
Current DATA line number 
Current DATA address 
Input vector 
Current variable neae 
Currant variable address 
variable pointer for FOR/NEXT 
V save/op aave/besic pointer eave 
Comparison . accumulator 

"lac numeric work area 
Jump vector for functions 
nisc work area 
FACal exponent 
FACal mantissa 
FACai sign 

Sanaa eveluetion constant pointer 
FACal overflo- 
FACaa 

FAC sign coaparison 
FACai rounding 

Room for grepnice screen (B-not available) 
Pointer: OOSUB eteck 

Flag for window (ste-windo- cm.see-i»ultie:olor.*CO-both> 
Status word ST 

Keyewitch CIA: STOP end RWS flaga 
fl-loed. 1-varify 

Serial output: deferred char flag 
Serial deferred character 
number or open files 
Input device 
Output CnO device 
Dlrect-BB:run-B output control 
Tepe end address /end of program 



sbba; 

SBBO~ 




■8BA3 B«AS Jlfry clock 

SBBA6 Serial bit count/EOI flag 

■BBAo Countdown taps ante/bit count 

number characters in filename 
Current logical file 
Currant aecondery address 
Currant device 
Pointer to filename 
f 88B£ 0BB3 I/O start addraaa 

MBST BBBG Ait start address aoed/venfy) 

I08B6 BBB' Pointer: cassette buffer 

SBBClCeCS Input Cursor log <rou. column) 

SB8C& Which key (61-no key) 

MBC7 Input from screen /keyboard 

saaCB-BBCg Pointer to acrean line 

•obca Pointer: cursor column 

sbb::b Output quotes flag 

1BBCD Pointer: cursor rou 

i"-" - Output character (to acres") 

SBBf ' Number of inserta outatandlng 

SBBEA-BOEB Screen color pointer 

MBEC-BBEO Keyboard pointer 

Number of charactare in keyboard buffer 
Type of tape rile 
Floating to ASCII work area 
Tape error log 
Proceseor stack area 
Baaic input buffer 
Pointer line number tor CQNT 
»OeSB-eas:: Pointer basic ststement for CQNT 

*e£F£-WF3 rioet-rixed vector 

iMFH-8£FS Fined-floel vector 

1B3BB-B311 Baaic vectors 

sfl31?B313 IRQ vector Tor keyscsn/clock 

M311-B31S nam iro vector for sound duration /graph ice split 

•B316-B317 BRK interrupt vector 

»03i9 3j:ii OPEN vector 

•B31A-B31B CLOSE vector 

■•31C-031D Set input vector 

S831E-031F Set output vector 

f03?0-03£l Raatore 1 '0 vector 

SB3£e-B3?3 INPUT vector 

1032t-B3?S OUTPUT vector 

*B38B-B3£7 Test STOP vector 

S03SS-B3£9 GET vector 

sa-ipo biff Abort I/O vector 

•B32C-B38D User vector 

SOXZ-BXF LOAD vector 

•8338-833; SAUE vector 

S0333-03F? Cassette burrer 

SBM73 CHARGET subroutine 

SOtFC/OIFE Ouration for voice 1 

•BMFD/B-IFF Duration for voice eV noise 

las^i HtiO seed value 

*e509-B5l£ Logical file table 

•0513-0S1C Device number table 

•851C BS?6 Secondsry addraaa table 

»0S£7-0S3B Keyboard buffar 

*O*)ll-053!? Start of usable memory 

lasii 35 3'i End or usable memory 

«aS30 Sniiai bus ;>'B3U flap 
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S3S3F 
sl'.,'. : 

sBSia 

S0SH3 

S0S1S-BSM6 

SB70B-B7B0 

SB7FS 

S07F3 

S87FH 

S07FS 

SB7F6 

SB7FC 

si 000 3FF5 
S1O00-3FFS 
S3FF6-3FFD 

"EnoRy map 



SB IBS 
16117 

SH1P1 

SB383 

S911S 
SBiiS 3 

S8171 

SBGB1 
19GQ3 

S87B3 

11 '3« 

.11 

SBAFI 
S8AFF 

SB BBC 
SHC'jn 
SUCUb! 
SBUL'H 
SULU < 

SflDl3 



sbce; 
SB EBB 

SHE IB 
SBE3E 

SBE7C 
shf?3 

SRFFfi 

sip'iw 



SB IBB 

S911F 
S^BB 
sgea-t 
S93ac 
tmaa 

SB1BS 

S'J-HH 

■94 er 

S9HS1 
S9SFB 

S9SFB 

I9BBS 
S969B 
SB&oS 
»90E>C 
SS89E. 

S'jnb,.' 

s'jn 'u 
S9A9D 
S9A0E 

saefab 

SBC IB 

•sen 

ss~r F 
S9~C3 
S9D15 
S9D61 

S9O01 

fama 

S9DD2 
S9DFA 
S9E1? 

SGE&O 

S9EQ7 
S9E9E 
SAB IE 

SAB7B 
SA197 
SA221 
SAJBI 
10 L '«B 

SA2BE 
sfl c 'ai: 
SA3S8 
IAS El 
SASEE 
SAW 

Sft'jbC 
SA707 

SA77D 

S07HS 

»A^F-n 

SA7B1 



Current color coda 
7 1-Flesh 
6-1 Luminaries (0-7> 
3-0 Color 10-lS) 

riaa size of keyboard Buffer 

Repeat speed counter 

Repeat lelay count a r 

Keyboard shirt/control f lag 

Caaa switch count 

Keyboard table setup pointer 

Ca»a switch disable 

Gosuo stack 

SYS A rag save 

SVS X reg save 

SYS Y rag aava 

SYS status rag save 

Last key 

Countdown for double II bunp 

Color memory 

Screen manor y 

Basic program memory 

Graphics screen/color aeaory 

Reset entry (When ROD is out) 



Basic 80" cold start routine 

Initialize basic 

Power -up massage 

Uactora ror SB 380 

Initialize vectors 

CHRGET For S0179 

Keywords 

Command vectors 

Function vectors 

Arithmetic operator vectors 

Error messsges 

■ SYNTAX ERROR 1 

Error routine 

"READY ' 

Basic warm start 
Find basic line 
Per Form NEW 
Perform CLP 
Set text pointer 
Perform LIST 
Perform RUN 
Perform RESTORE 
Perform STOP 
Perform END 
Perform CQNT 
Perform OOSuB 
Perform GOTO 
Perform RETURN 
Perform DATA 
Perform IF 
Perform REH end ELSE 
Perform ON 

Set line nu-ber (0-63939) 

Perfora LET 

Perform PRINTS 

Per for" Cno 

Perform PRINT 

Print string from Cy.e) 

Perform GET 

Perform INPUTS 

Perform INPUT 

Perform READ 

"•REDD FROM START ' message 
Perrorm NEXT 

Evalulate expression 
Constant PI 

PsrForm NOT 
Scan past ) 
Scan past ( 
Scan past 

Perform OR 
Perform AND 

Perform comparisons (<">) 

Perform Din 

Locate variable 

Constant - 327GB 

Float-f ned 

Perform FRE 

Per Tor m PQS 

Perfora DEF 

Per ror m FN 

Perform STRS 

Get temporary string 

Perform ex PS 

Perform LEFTS 

Perform RIGHTS 

Perform nIDS 

Perform LEN 

Perform ASC 

Get 1 byte parameter 

Perrora UAL 

Get peramaters Tor POKE /WAIT 

Perfora PEEK 

Perform POKE 

Perrora UAIT 

Parrorm SUBTRACT 

Perform ADD 

Per Fore LOG 

Perform MULTIPLY 

Perrora diuioe 

neaory to FACsi 

FACSB to FAC*1 

Round FACS1 

ParFora 5GN 

Perform ABS 

Perrora INT 

Perrorm SDR 

Perrora POKER 

Permorm NEGATE 

Perrora EXP 

Perrorm RND 

Basic I/O error handler 
Basic-kernel patch for OPEN 
Basic-kernel patch for PRINT 
Bssickernal patch For INPUT 



SA797 

SA7A6 
SA7AF 

tfl 'HS 

SA7DE 
SO7F0 
SA7F3 
SA81D 



SAA7B 
SAA77 
SAOCO 
SAB1A 
S0B9P 

s<iL;:r. 

5 -■!.■,'-■ 

sniuft 
■ Bifffl 

SB140 

SBSS>i 

SBSS7 



SBECD 



SH.V-H 
SHfl-iF 



iCH 



SBD3S 

S!it c -U 

SCB1E 

SL.I.'H 

SCSBD 

SCSI A 

SCS67 

SCSBB 
SCSC3 



SC911 
SC951 
SC96B 
■C93- 
SC9CC 
SC9D-A 
SC9FT 
SCABB 

scBei 

IClCF 

sccse 

SHE 00 

SCE0E 
SCEl? 
SCECO 
SCEFB 
SCF26 

scfzd 



SHRB? 

SI1U11! 
SUB J') 

SD93S 
SliGOL' 
SDBC1 

SOB 11 
SCC9 

SEB1E 
*l 

SEB67 

SEBAB 



SEl^n 
se^ea 

SL'J~L 

SEA81 

SI Hill 
SEBEB 

SEC1B 
S E C B B 

SECDF 

SED1B 
SIC6C 
SEOFA 
SEE 1 A 
SEE?C 
SEE1D 
SEESD 
SEEEO 
SEEF8 

SFFITfl 

tFFar 

SEFS3 
SEF3B 

SEF53 

SF04A 

SFlAt 
SF^ES 
SFPA^ 
SF5CE 
SF8D3 



SF1BC 
SF113 
SFHA 
SF-11C 
SFies 
SF1S7 

SFies 

SFHSF 
SF136 
SF13B 

SF13E 



Bssic-kernal patch For set output device 

Basic-kernel patch for set input device 

Bssic-kernel patch for OET 

Perform SYS 

Perf ore SAVE 

Perform UER1FY 

Perfori* LOAD 

Perform OPEN 

Perfora CLOSE 

Get parameters for LOAO/Saue 

Get parameters for OPEN/CLOSE 

Gerbage collect 

Perfora COS 

Perform SIN 

Perfora IAN 

Perform AIN 

Perfora RENUMBER 

Perrorm FDR 

Perform DELETE 

Get range for LIST/DELETE 

Perform TRAP 

Perform RESUdE 

Perform PUOEF 

Perform 00 

Perform EXIT 

Perform LOOP 

Perform TRON 

Perform TR0FF 

Perform AUTO 

Perform HELP 

Perform KEY 

Perform SOUND 

Perform VOL 

Perrorm PAINT 

Perform CHAR 

Perform BOX 

Perform GShape 

PerTorm SSHAPE 

Perform CIRCLE 

Perform ORaw 

Perform LOCATE 

Perform COLOR 

Perform SCNCLP 

Perfora SCALE 

Perform GRAPHIC 

Perfora DIRECTORY 

Perform DSAUE 

Perfora DLDAD 

Perform HEADER 

Perfora SCRATCH 

Perform COLLECT 

Perfora COPY 

Perform RENAME 

Perform BACKUP 

Get parameters ror disk commands 

Raad disk error 

'ARE YOU SURE ' message 

IRQ/BRK Entry 

IRO routine(S03lHJ-hanoies graphics split. sound duretior 

IRQ routlneCSB3ie)-handles clock . keyboard 

Handle sound durations 

Bump c 1 ock 

Get t l ae 

Sat time 

Char actor definations (SK> 

Screen sddress (LOU) 

Screen address (HIGH) 

Get screen size 

Put/Get Row/Col 

Set screen pointers 

Remove Cher fro" keyboard 

Input until carriage return 

Read keyboard 

Output to screen 

Keyboard select vectors 

Unshlfted table 

Shifted table 

CBn key table 

Control table 

Shirt/run equivalent 

Delay ror 0.5 sac 

Find sny tepe header 

Find e specific header 

Get (SC35©) 

Input (S03££) 

Output (S03c^i) 

Receive froa serial 

Send serial dererred 

Set input device <S031C> 

Sat output device CS031E) 

Send TALK 

Send TALK SA 

Send LISTEN 

Send LISTEN SA 

Close rile (S031A) 

Find rile entry 

Bet file details 

Abort all files CS03ZA) 

Restore default I/O <S032B) 

Send UNLISIEN 

Send UNTALK 

Open file (S03I8) 

Load prog rem ( S032E ) 

Save prograa (S0330) 

Test STOP key (SB 3^6 I 

Power reset entry 

Set kernel vectors 

Store kernel vectors 

Initialize 1/0 

Inltlelize System constants 

Set filename details 

Set file details 

Flsg status 

Get status 

Set timeout 

Reed/set top of "eaory 

Resd top of neaory 

Set top of neaory 

Read/sat bottom of meoory 

Read bottom or aemoru 

Set bottom or memory 
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irns 

1F44C 
SFC19 
ii uyj 
ti est 
1'DOC 



Monitor call entry 

nomtor BftK entry (80316) user 

Gat I/O address 

IRQ entry 

IRQ exit 

TED aenory 

Perform MONITOR 



:tor (8038C) 



DEC ADDRESS 



I 

1 

3-1 

S-6 

7 

B 

9 

Lt 

11 

13 

14 

IS 

16 

17 

88-81 

88 

83- 21 
85-33 
34-37 
3B-42 
13-41 
4S-46 
47-4B 
49-50 
51-58 
53-51 
55-56 
57-58 
S9-60 
SI -6? 
63-64 
65-66 
67-68 
65-78 
71-78 
73-74 
75-7S 
77 

78-83 

84- 86 
87-96 
97 

98-181 
182 
183 
181 

les- ne 

111 

113 

113-114 
115-116 
117 

ift-ies 

131 



132 
133 
134 
IB 
136 
111 
115 
147 
118 
119 
151 

isa 

153 
151 

157-158 

163- 16S 

171 

17? 

173 

174 

175-176 
178-179 
180-181 
168- 1B3 
194 

196-197 

198 

199 

-.v Bl 



885 

-Si, 
287 

834-835 

P1F-P-H 

839 
848 
849 

875-889 
891-511 
518-608 
601-682 

754-755 
756-757 
768-769 
770-771 



.4 nsncttY HA. 



— 







DESCRIPTION 

7S81 Date direction register 
7501 B bit I/O port (esC61> 
New stert address (RENunBERi 
Step yldth CRENUHBER) 
Search character 
Flag, searching for quote 
Screen column from last TAB 
Plagt 0-LDAD, 1-VERIFY 

Input bufrer counter, number of elements 
Flag' SF'- (.'.■-■ 

Flag: IFF-integer. 100-rioatmg 

Flag: Date ecen/LlST quote/ memory riag 

Flag, user Function call 

Flag 808- INPUT. 810-GFT. 898-PEAD 

Integer value 

Pointer: Temporary string stack 

Uactor: Last temporary etnng 

Temporary string stack 

Utility pointer are* 

Product are* Tor multiplication 

Pointer: atert oF baaic 

Pointer: start of basic variables 

Pointer: atert oF basic arrays 

Pointer, end oF arrays 

Pointer: start of strings 

Pointer: current string 

Pointer: top of basic memory 

Current basic line number 

Previous basic line number 

Pointer, CON! basic line number 

Current OATA line number 

Pointer, current DATA address 

Uector. input routine 

Current variable ■--■>- 

variable address 

variable pointer for FOR/NEXT 

Y ssve . op save, basic pointer save 

Camparlaon: l-largar, 8- equal, 4-smsller 

niec work area 

uector: Functions 

niec work area 
Accumulator exponent 
Accumulator HI mantissa 
Accumulator "1 sign 

Series evaluation constant pointer 
Accumulator ai hl-order overflow 
Accumulator "8 as For «1 
Accumulator sign comparison 
Accumulator *1 rounding 
Pointer cassette buFFer 
Flag »UTO command 108-OFF 
Flag. 881- 10K reserved For graphics 
Pointer; GOSUB stack 

Current graphics mode 808-teiit, 820-hires, 
*68-spl it hires 

W*B--ultlcalor, »£0-multlcolor split 

Current color 

nulti-color 1 

F o r eg r ound color 

flax number of columns 

llax number of rows 

Status word ST 

Flag: STOP end RUS keys 

Flag: 108-LOAO, S81-UERIFY 

Flag: character in serial buffer 180-NO, S80-YES 
Char ac tat in buffer for aerial address 
Number of files open 
Default input device 
Device output device 

Flag sHO-direet mode. fC0-mo~itor , See-program 
Pointer: tape end/progrsm end 
Jiffy Clock 
Length of flit 
Logical fill 
Secondary 
Device num bar 
Pointer: filename 
I/O start address 
Basic loading address 
Pointer: loed end address for tape 
Flag; RuS 818-Yea. 880-No 
Cursor position (x.y) 
Flag: key pressed 148-nons 
Input from screen/ key boerd 
Pointer: screen line 
Pointer: ecroen coluan 
Flag: 108-not in quote node 
Length of currant screen line 
Pointer: cursor row 
Output character to screen 

Flag: insert mode. >*80-number of inserts 
Pointer, current screen color 
uector to keyboard decode 
Number of characters in keyboard buffer 
Type OF tape file 
Bit 7-1 WRITE, Bit 6-1 READ 
Color luminance table in RAD 
Processor stack 
Bssic input buffer 
Previous basic 1 I ne number 
Pointer: Basic statement for CONT 
Pointer, float to fixed routine 
Pointer, fixed to Integer 
Uector, basic error 
Uectonbasic uarm start 



778-773 
771- 77S 
778-777 
778-779 
7B8-781 
788-783 
781-785 
786-787 
788-789 
798-791 
798-793 
794-79S 
796-797 
798-739 
880-801 
B02-803 
- f.^ 

806-807 

888-809 

B18-811 

818-813 

814-81S 

616-817 

818-1010 

1139-1144 

1145-11S6 

: ?r 3 

1861-1865 
1866-1867 
I860 

1881 -18B2 
18B3 

1289-1298 
1899-1308 
1309-1318 
1319-1388 
1389-1338 
1331-1338 
1339 



1343 
1344 
13M5 
1346 
1347 

1348 
13M9-: 

1351 
1368 
1363 
1361 
136S 
1366 
1367 

'. J1.U 



Uector basic token generator 

uector basic LISt 

Uector 'basic command execute 

Uector basic token evaluate 

uector basic user token evalulata 

Uector create keyword 

Vector : prepare uear token 

Uector : interrupt 

Vector, hardware interrupt 

Uector :BRK interrupt 

uector 'kernel OPEN 

Uector 'CLOSE 

Uector, CHK IN 

uector CHKOUT 

uactor i CI.RCHN 

uector:CMRIN 

uactor 'CHROUT 

Uector: STOP 

uactor :GET[N 

Uector :CL ALL 

Uector , monitor break 

Uector LOAD 

Uactor i SAUE 

Tepe buffer 

CHARGE T subroutine 

CKRGOT subroutine 

Last error number 

Row number of laet error 

Reference For ON ERROR GOTO 

U9R Jump command 

uSR address Uo/hl) 

RND seed value 

Table or logical rile numbers 

Table of device numbers 

Table of secondary addresses 

Keyboard buFfer 

Start address oF RAM for OS 

Pointer, end of RAH OS 

Current color coda: 

BIT 7 ; l-riesh 

BIT 6-1; luminance <0-7> 

BIT 3-0, color (0-15) 

Size of keyboard buffer 

Flag,Key repeat, 8 B0-A1 1 , S10-Nono . 100-DEL . SPACE .CURSORS 

Repeat speed 

Repeat delay counter 

Flag, shift, ctrl, cbm key 

Last pattarn of shift 

Pointer: keyboard table setup 

Flag: SHIFT: 888-NO. 100-YlS 

Program counter hi 

Program counter lo 

Processor flags 

Processor A rag 

Processor X reg 

Processor Y reg 

Processor stack pointer 

Current key pressed 



LABEL 


HEX 


DEC I "AL 


DESCRIPTION 




1080C 


0 


6518 Direction register 


'Y-i.' 


10031 


1 


6510 I/O. fleaory and tape 


AO RAY 1 




3-1 


Float to rixed vector 


ADRAY8 


■8086 888G 


5-6 


Fixed to float vector 


CHARAC 


•0B07 


7 


Search character 


EKDCHP 


1B0BL' 


8 


End of quote flag 


TRflPOS 


90809 


9 


Save screen last tab 


JERCK 


SO0BA 


18 


Flag: LOAO-0 UERIFY-1 


CO. NT 


iseae 


11 


Pointer Input buf f ar/Ssubscr lpts 


DlrtFLG 


bp 


18 


Default Din to 10 flag 


UALTYP 


10000 


13 


Data type: String-85S NumberlC-0 








,nt.g.r-188 iMt _ e 


INTFLG 




14 




GARSFL 


1008 F 


IS 


DAT" scsn/LlST quota/Garbage collect 


SUBFL8 


1*010 


16 


r lag 

Subscript/User fn call 


INPFLD 


10811 


17 


Input flag: 188-Input 110-Get 180-Reai 


TANFLG 


mc:. 


18 


TAN sign/coapar ison 




1001 A 


19 


Current I/D prompt 


LINNUH 


S0011-0O1S 


88-81 


Integer value 


TEnPPT 


10816 


88 


Pointer temp string stack 


LOSTPT 


58017-0810 


83-84 


Laet temp string address 


TEnPST 


80819-8081 


8S-33 


Stack Tor temp strings 


INDEX 


10028-0085 


34-37 


Utility pointer eras 


RESHD 


103,>6-00PA 


36-18 


Product area for multiply 


TXTTAB 


•808B-008C 


13-14 


Pointer stert of BASIC 


uaRTAB 


1002O-008E 


4S-46 


Pointer start of variables 


ARYTAB 


1002^-0030 


17-18 


Pointer start of arrays 


SIREND 


10831-8832 


19 


Pointer end of arrays 


FRETOP 


13033-0031 


S1-S8 


Pointer bottom of strings 


FRESPC 


10835-8036 


S3-S4 


Utility string pointer 


nEnSIZ 


\ 1 ea -<j 


S5-S6 


Pointer highest address used by BASIC 


CURL IN 


80839 -80 3 A 


S7-SB 


Current BASIC line number 


OLDL IN 


Jkik.vi" tf.i .;. 


S9-68 


Previous BASIC line number 


OLOTXT 


sae3D-803E 


61-68 


BASIC statement for CONT 


DATL1N 


icajt -0848 


63-64 


Current DATA line 


ba:p:r 


S004 1-0012 


65-66 


Current DATA sddress 


INPPTR 


1B013-0B11 


67-58 


INPUT vector 


UARNAD 


10045 0046 


69-78 


Pointer current variable neme 


UARPNT 


10017-0048 


■*i ?e 


Pointer current variable data 


FORPNT 


10049-0010 


73-74 


Pointer variable for FOR/NEXT 




10Q4B-O04C 


75-76 


y-aave/op-save/BASIC pointer asva 




1001 a 


77 


Comparison symbol accumulator 




1004 E 0053 


?a e: 


niec work area 




S3S 


Bl OC 


Juap vector for functions 






B7-96 


Disc numeric work area 


FACEXP 


seai, -. 


97 


FPACCHl - exponent 


f ACHO 


100(^2-0065 


96-181 


FPACCltl - mantissa 


FOCSGN 


1 »' B ! 


102 


FPACCei - sign 


SGNFLG 


i.ii'-. ■ 


103 


Pointer aariaa evaluation constant 


81 T5 




181 


FPACCM1 - overflow digit 


ORGEXP 


■0069 


105 


FPACCS8 - exponent 


ARGHO 


100E-O 8BGC 


186-189 


FPACCK8 - mantissa 




10B6E 


118 


FPACC"8 - a ion 



VOl K COMMODOKK SKKIOt'S I SKKS (A \\)\ 



COMMODORE PROGRAMMING 



A* ISDN 


S006F 


111 


Sign comparison result 


' *^-uv 


*» r V 


1 1> 




FBUFPI 


■M71 _«m3 
1007 1 -007? 


1 13-1 11 


poincar caaaacca Durrar 


: : " w l- 1 1 


109 7 3 - 808A 


115 13B 


Subroutlni' ie»t oyta or BAblC. 


CHRliuI 




1C1 


ET _ * r , ( n n I n f* ai t" aa amaa r~- 1 1 a> 
LTiLiy point QQv 90"I9 D\|vQ 


TXTPTR 


IA41A _ A m T D 


1 1 c3 


rcintar current Byte or Dasic 


R\DX 


IP H , fcV - 


1 j t j 1 'i j 


nil HflnG VHlLfl 


S TATUS 




IHtj 




SIKEY 


10051 


115 


STDP k*u And RVS htt^m iijitch 

*aawl "Py "a* ^* nVnjfaa Vt tv" 


GUI! 


SO? BP 


116 


" constant For Cftps 


UERCK 




117 


S00*> Load Ml** UnriFg 




10034 


1 HH 




B53LR 
SYNO 


■MS 


1S0 


liar lal otitaut c'n'fi'rn: char 
Tape EOT mciVilvM 




» k 1 f ' 7 


151 


PpVl 1 Ht far «K'A 


LDTrlt* 


S00G8 


15? 


\wf?h»r faF Fl laltft nevn 

<*%J**4#ai ' l 1 4 AVer U|np< 




5 B11 '.J J 


153 




OFLTO 


SB0OO 


151 


Output device Cdefeult-3) 


PftTY 


1009B 


155 


Tnnri r^xiir ruir 1 lu 


;;p^:-j 


%ss'.i'.: 


1S6 


Tape byta received fleg 


MSGFLG 




157 


RAStr mdn Flan 40B a Prnnrain 








560*01 r act 


r in* 




158 


Tenaj naaa 1 armr Inn 


r » r*c 


aBBBe 




nit*!*! 3** arrnr Inn 


t tnr 






Daa| -ih ilff.i rlcu-li 






IB1 
• vJ 


rariil no rnunr/Fn; Finn 




■00 At 


161 


Cycle count 


■_.ri J Ur* 




ICC 


4 ■UbT BUI b tiUUIIwUUaTl Ir 414 b WUUl 1 V 


D L F p *J 7 


100A5 


loo 


ryincir tapo i/u Durior 


i lua T T 

1 +D I i 


* F 


1ST 


« JL *T*UUb all ta3 kBUS kv» b 








ldr/rd count 


U t Tf* T 
Dl Ibl 


10 EAR 


1 kh 


BSr'lP irrr.il hit rount 














* DJ 


^RPIP H'Art Is 1 1 flan 


n i lv*-i i p* 


*I>^QH 


1 70 


P5232 mput Bute buffer 










A 1 rH I T 




171 










t Ann i.ir t \ rtr lannth*rd cnecKBL-in 

!■ O V 1 n a l i 4V 1 *U *r » a *» a* p ■■■*■*"» aa** 1 " 


OA] 






Pn t nfnr f ana h*iT Tar ■ i; r r acr □ i l 

f Ull ILQI bBpfQ *J*J*J 1 "P* r vipi aaa— * w a a 








*ftn#* ffn/l dflrtr**!*./ npi* orouf iff 

4 SUV aTJI <U Bddi ■•■FW W T, »* 






1 76™ 1 77 


Tnn.n Mai nrt rfinit ant a 


iriri i 




178-179 


Pnmf nr -r n r • nF taoa tit f * *v 

rUl I 1 LDl BhBl a> I_f * bO*j>*p ***** * aa* 


D r T T<* 




i DV 


„'■:.' i .■ n . »■ --[■ j*- f / * a nn n'^aJiLnil ^ 1 

nflEJai UU L> U 1 * bvW< *» * f*> "P a ■■** 


IjvTD » T 




1 m 


P? f ^r ) ^P rv-tvp h i f f n aAnd/tana FHT 

BJCJt f»»J*b Uih bW *»-*7<*-**>' waua bUl 


rfUDATH 


* ■ * ■ 

lUeHb 


loe 


B^PV Ant hi if - a Ki *FFr»r*/ rrt rhur arrnT' 
n jc uul uy n ****** * *** ' * ** yuat * w* 


FNLEN 


BMB7 


183 


t 4> ,\. i-i>n*aa** r **4 . ana^a 

Length current rlleriane 


LA 




: u i 


Current logical File numDer 


5A 




IBS 


Current secondary eddreaa 


FA 


tea?" 


186 


Current device number 


F N P D P 


■ A A Q Q — ft f% □ r 1 


1 87 - 1 BB 


ruintor current i ue Tiamv iuui ■» 


pd f p r v 




183 


DC*) iLr nt ■ *■ nap 1 f u / f ■ ^aB r"f1 f Ark it* i - nil f 


FSBLK 




130 


T ** — aa m laklP nF h 1 b' ■ 1 T f O Lit"*' r" ^* 

i apa nuiiDBr or oiytKa ibi t tu -v* *./ * « 


HYCH 


5 f ,^ ' F 


lal 








■ IP 


1 BLIB nu*UI bU"L| w' 


STAL 




193-131 


I/O start address 

a ' ** ^*>*a* *> as***a* **^*# 


™ f n 




1 95- 1 96 


■•-nil utnn nfr/t una tnrrti Milling 


LSTX 




197 


Last >du areased 


NOX 




198 


Number characters In keyboard queue 


PUS 


*00C7 


199 


■US char print Flag *01-yea IBfl-no 


tNOX 




2B0 


Pointer to end of line for INPUT- 


LX5P 


SO0C9-00CA 


Ml -B9B 


Cursor ro«,col at start of INPUT 


SFDX 




M3 


Current key pressed 61- no Key 


BLN5U 


SNCC 


201 


B - blink cursor 


8LNCT 




MS 


Cursor countdown timer 


j~BLN 


SMC 11 


806 


Character at cursor position 


BLNON 


*0OCF 


M7 


Cursor bl.nk fleg on/off 


CftSu 




80B 


Flag: INPUT froa screen or OCT from 








keyboard 


PNT 




SBB-eiB 


Pointer currant start of screen Una 








address 


PNTP 




21 1 


l**UI BKIl l_UJ> Uii BUUVB J> J> f 1B> 


~1T Sl- 
ier 1 3U 


» w»> * 


pip 


f i B J ** WUI BUI 1 M BBU t L ^UUB Bi a H l^UULV 


LNMX 


5C i! '1 


PI 1 


^Hl LB \ ^B 1 Bar* attain 1 1 fW 1 flm^ ri 


T8LX 


1 0 0 n r 


211 


Current roi - cursor livea 






215 


1 i — ■ — *- — — i — / •* lbT B Basi • — — — H ext* as 

Last inkey'Cr«cksum*buFFer temp data 


1 "OP i 




CIO 


"LnlDOr OS l"SBrt3 OU 1 9tB rta 1 r^J 




iPfiu^i c&rc 


PI T T ?vP 

Cl ' ClC 


i~lrraae>**i 1 * ne> \ 1 nt t ' aa 




■wwr j v*>t * 


Cl J-cTll 


Pointer screen colour 




Sh?t>' 3 <-\ ' Q 


elo-cTHo 


Vbi (T\na f H Hernia * " *- ' rr i t aaiF* f r - T 




* L* Q\ F 7 - CI 


ti ' ci" 


pescJg input out r or poinior 


lt mi l 


« arirn ■ . 1 e a 
■Pflr J UUiH 


(Tia-ifb0 


■ ■ ' j * M d>aaJ> *, ff - r nm n*aaja* 

"..->'. ii. QULput DUtiBi pointer 




*[* n ■■ aar k x 


Cbl-<fb1 


Free zero pane area 




■ 4rir c 


_■■ (_ 

; .j ■ 


U ft 1 ' T f ' t~ amfa r~i H at tr ai aareaai 
Q«JlL> IBKp DBwO Bi BB 




■VtVV BlP" 


C3D c OO 


P 1 mar *> **. All - * 1 T ■ ■' 4/ h r a* H 

r luBt to hjli 4 worK Bros 






256" 318 


T j* A ■ H r* T™ PIP 1 l*efl 
i Q * Ul 1U\| 




S01O0-01FF 


256-51 1 


I a U*r09S>V* wWl*jf\ 


SUF 




512-MB 


Systaa input buffer 


LAT 


«02S9-086f 


681-61B 


Logical file tsble 


FAT 


1 ■,: 


611-620 


Device nuaber tsble 


SAT 




621-630 


Seconder u address table 


KEYD 






Kauboard buffer 

**BB*f**wt ** ***** * aa* 


HEftSTfi 1 


I 0^81-088? 


61 1 -612 


Start of BASIC aemoru 

*a ** aa i *# wi *a»^*a ■ ** '»»■■»»** * *j 


r * L " - I ** 


10^83-0^81 


E13-611 


Tno cif RASrr i*aaoru 

4 ytU WI »*"^*JT t r«vf*it w 


TinOUT 


j 


615 


Sairlal hnn time out flaa 


CGLOP 


1 iV L". 


61 E 


nurramt rharartar colour 

wU» * B' ■ b ** ' ^aia »b aj bjbj v** 4 ****** 


QDCOL 


10^B7 


617 


Rat kfirru irvi rnlrkir ijndar Cur an r 

uobny i **w ^| wu tuui v***jv4 uui aa**4 


HI BASE 


*0?08 


61 B 


*>Tnrt nF > irrflr>ri ^narnnrti nana rurJiar 

_lQL w xj l L ddi ' "wa'"**! af r**'Bi BaDjDjaaaaj 


jr - ^ r 


IBl.'B'J 


b L 4 H J 


Qi j* nF Vni inriaril huFFar 

•Jl (H lji i\uy ulbl u u\j > i Hi 


DOT VI f~ 


^ ' LI H' 

I- 




"ay flag .c-U~kbccibc a.i 'ays 


MAJH i 




Ml 


Dn n A dj t" anelfirl r* n< i r> t nr 

rrepea t epeaa counter 




1(1311- 


6S3 

DO 3 


r 1 an - ah 1 Ft- /rrr t / Innn bin 
r iBy 1 en it i'v*i i * u- ^"W 


LSTHF 


102BE 


6S1 


Lest ehiFt pettern fleg 








Vanhnarri aaaa*-i rn a mH \ m wl nrBIP 
hDUHOBLt] Setup tBDIB pointBt 


pin fir 




OO/ 


1 1 i* - Aaart 4 aaaih \ aa •ahif r * L l^aaitai ipflaanahla 








shifts 


I 1 J I G G N 


* 0? G ? 


658 


0*acroll down eneble 


1S1CIR 


•0P93 


659 


RS232 control register 


rt51CDR 


*0a91 


G60 


fS232 comaand register 


nSlAJB 


lo^J^ 0?G6 


661-662 


RS232 non-standard baud rate 


RSSTAT 


*B?97 


663 


RS232 status register 


bitnum 




661 


RS232 Bite left to send 


touncr 




665-666 


RS232 baud rate 


R1GBE 




667 


F3232 inde- to end of input Buffer 


"I DBS 


»0||B 


66B 


RS232 page number of stert or input 








buffer 


RODBS 


ieno 


669 


RS232 page number of start of output 






buffer 




S0?9E 


670 


RS232 index to end of output Burfer 


IROTriP 


I0e9F-B?A0 


671-672 


ISO sava during tape I/O 



LNAiil 



1ERR0R 

1HAIN 

ICRNCH 

igPLOP 

1EUAL 

SAREG 

SXREB 

SYPEG 

SPREG 

uSRPDK 

USRADB 

CINU 
CBINW 

NfllNU 
I OPEN 

I CLOSE 

ICHKIN 

ICKOUT 

ICLRCH 

IBASIN 

imsgu: 

ISIOP 

lGEDN 

ICLALL 

USRC10 

I LOAD 
TBUFFER 



l.i-jl-'JI. 



B02A1 
S02A2 

V02AJ 
S02A1 

*02A5 
S02A6 

S02A7-02FF 
*B2C0-02FE 
10300-0301 
SB 382-0303 
50301-0305 

: 0J07 



673 
671 



67S 
676 



S830A-030B 
BB3BC 



M310 

B031 1-0312 

S0313 

10311-0315 

10316-8317 

10318-0313 

SB31A-B31B 

1031C-O31D 

M3U-031F 

1032B-0321 

10322-0323 

•0321-0325 

B0326-0327 



678 

679-767 
701-756 

770- 771 

772-773 

771- 775 
776-777 
778-779 
7B0 

781 
782 
783 
781 

785- 7B6 
787 

786- 7B3 

790- 791 
792-793 

791- 795 
796-797 
798-799 
[100 3B1 
na ■ a-c > 
881- 



RS232 enebla/CIA2(NT1I) interupt 
control 

CIA i timer A control log during ta 
1/0 

CIA 1 interupt log tape read 

CIA 1 timer A enable log tape read 

Screen line narker 

PAL/NTSC fleg, B-NT3C 1-PAL 

Unused 

Block 11 For sprites 

vector: BASIC error sags (SF3B81 
basic warm start (iniB3. 



Onctcr 

uactor ■ 
uector 
uactor^ 
Vector . 
Save A 
Save X 
Save V 



I1C crunch tokens (SAS7C) 
<1A71A> 



1032A-B3^B 
1032C 032D 
1032E-0J2F 
10330-0331 
10332-0333 
W33H-B33B 
1033C-03FB 
SB3FC-B3FF 
1O31O-037E 



K3C0-03FE 
10100-07FF 
1B100-07F7 
SB7FB-B7FF 
108e0-9FFF 
SB0OO-9FFF 
1APP3-BFFF 
1A0O0-8FFF 
1C000-CPFF 



1D100-D11C 
BOMB- DBF F 
lDi:03-DCOF 
1CD00-DDOF 
J-OFFF 
(-FFFF 
l-FFFF 
1FFB1-FFFS 



810- 811 
B12-B13 

811- 815 
816-817 
818-819 
B20-827 
B29-1019 

1020- 1023 
832-891 
B36-9S8 
960-1022 

1021 - Ml 7 
IB21-2023 
2010 -Ml 7 
2B1B-109S9 
32758-10959 
10960-19151 
10B6O-191S1 
19152-S3217 
53218-S3291 
Sl272-Si3B0 
55296-56319 
S63M-SG335 
56576 -S6S91 
53218-S7291 
57311-65535 
S7311-65535 
65109-85525 



BASIC print tokens 
BASIC Stsrt new llne(BA7E1) 
BASIC token evaluate(SAE86) 
register 
register 
rag later 
Save status register 

USR function Jump instruction (SIC J 
USR address low/high form (SB21B1 
Unused 
vector 
UBctor 
Ue ct af 
Uector 

uector 
uector 
Uector 
Uector 
Uector : 
uactor 
uector 
Uector 
uactor 
uector 
Uector 
Unused 

Tape 1/0 buffer 
Unused 

Block 13 sprite date 
Block 11 sprite data 
Block 15 sprite data 
Screen memory 
Uisible memory 

Sprite block data pointers 18-7) 
Start of BASIC (IXTTAB-1) 
Alternate: ROT! plug-in area 
Basic ROn 
Alternate RAn 

RATI memory , including elternate 
Uideo chip (6566! 
Sound chip (6S61) 
Colour nybble memory 
Intarfaca chipl IRQ (6S26 CIA) 
Intarfaca chip? Nfll (6S26 CIA) 
Alternate' character sat 
ROT operating system 
Alternate RAn 
Kernel JUhP table 



Hardware 1R0 


(1EA3D 


: BRK interrupt 


(1FE66) 


NHI 




(1FE17) 


: KERNAL 


OPEN 


(1F31AJ 


KERNAL 


CLOSE 


■ iresi ■ 


KERNAL 


CHKIN 


(1F20E) 


kj»n-a: 


CHK0UT 


(lF250i 


KERNAL 


"_L^CHN 


(1F3331 




CKRIN 


(SF1S7) 


I KERNAL 


CMROUT 


(1F1CA) 


KERNAL 


SIOP 


. l*!iLU ■ 


I KERNAL 


GET IN 


(1F13E) 


KERNOl. 


CLALL 


(1F32F) 


: MAR" start 


:%rvnti i 


KERNAt 


LOAD 


(1F1A5) 


. KERNAL 


SAVE 


' PTT i 



C1M 0P-SVSTE" AND MEMORY DAP 



HEX 



AC0RESS 



DEC 




■OBc-F-oeje 
10031 -0032 
10033-0031 
100 35 -03 Jb 
I0C38-0038 
100JS-003A 
•OO3B-O03C 

1003D-OO3E 



10011 -Ofll? 
10013-0011 

1001S-OO46 
■001 7- 001 B 
10019 -001 A 
1001 B -081 C 
•0B1U-B01E 

1001 F 



10-11 

15-16 
17-1B 
19-50 
51-52 
53-51 
55-56 
57-SB 
59-60 
61-62 
63-64 
6S-56 
67-68 
6S-7B 
71-72 
73-74 
75-76 
77-78 
79 



6S10 date direction - processor port 

6S10 data register - processor port 

Storage for bank byta 

Storage for prograa counter high 

Storage for program counter low 

Storage for CPU atatus register 

Storage for accumulator 

Storage for x-regieter 

Storage for Y-rsgister 

Storage for stack pointer 

Look for quotation mark at end of string 

Screen column et last TAB 

Disk flsg,0-LQAO,l-UERlFY 

Number of elements, input buffer pointer 
Default for array dimensioning (DIM) 
Data-type flag 1 1 SBO'rumar ic, SFF'str ing 
Date-type riag 2'100-rioat .iBO-n.ed pnt 
FlagLIST.raad DATA. garbage coll. 
Pntr for FN funct, var type for FOR/ NEXT 
Input-flag: BOB-INPUT . B40-GET . 19B-READ 
Sign of TAN:aquality by comparison 
Active 1/0 device, flag INPUT com-ent 
Line number, integer value Lo/Hlgh 
Pointer to tenporery string stack 
Last string address 

3-byte steck for temporery strings 
3-byte stack for temporary strings 
3-byte atsck for temporary strings 
2-byta help pointer index i 
2-byte help pointer index 2 
Floating-point result of multiplication 
Polnter:Start of BASIC text Lo/Ml 
Pointar:Start of BASIC variables Lo/Hl 
Pointer, Start or BASIC arraya Lo/Ki 
Pointar:End or BASIC erreys *1 Lo/Hl 
Pointer : Start or atring memory Lo/Hl 
Help pointer for string storage Lo/Hl 
Pntr : End string memory , Uar .Bank 1 Lo/Hl 
Currant basic Una number Lo/Hl 
Pntr BASIC text for CHRGET , CHRG0I Lo/Hl 
PRINT USING pntr, char search pntr Lo/Hi 
Current data line number Lo/Hi 
Pointer to current DATA address Lo/Hi 
uactor pointer For INPUT routine Lo/Hl 
Currant BASIC variable name Lo/Hi 
Pointer to address of currant var -Lo/Hl 
mask for AND. LIST pntr. FOR NEXT pntr 
Temporery storege for progrem pointer 
nesk for compere opera tlon> , e, - ,i , < ,8 



V01 R COMMODORK SIvRKU S I'SKRS (U'IDK 



COMMODORE PROGRAMMING 



»aevj-8Bbo aa-33 



97 



1007A-007C 1*8-1 St 
S7D-007E IPS- IPS 
I7F 127 
neo 1PB 



loeoi-caivi 



•flaci 



we oi 



226-L27 



237 



War pntr for FN defln.,- for garb coll. 

Pntr, descriptor ver Uat-etnno compares 

Kalp : lag i ..-■(. ■■• . 

Jump vector for function evaluations 

Dldov 

Ores for INSTRING oper./temp pointer 1 
PoInter:block transfer, DIM init 
Pointar , block trensfer 

loop pntr 2, occasional lu floating-pt acc 
• places before/efter dec. for conver. 
Pntr Dec. pt when reading digit strings 
Exponent sign of the * read (neg. _ *80) 
Floatlng-pt. accumulator 1 , Eiponent 
Floatlng-pt. accumulator l.tantissa 
Flostlng-pt. accumulator l:sign 
pointer. Polynomal evaluation 
Floatlng-pt. accunulator 2: Exponent 
Floatlng-pt. accunulator 2 Mantissa 
rioatlng-pt, acc. 2:slgn 

Result flag: sign coapara Acc 1 to Acc 2 
Floatlng-pt. accumulator lr Round OFF 
Pointer ; Cassette buffer 
fiffset value For AUTO command. S00-off 
Hires f lag: 1-BASIC-stert set 19k higher 
Sprite number -counter For leading *sros 
Help counter 

Temp storege For indirect loading 

Description of error -van able 0*s 

End-of-atack during program run 

"ode f lag,*xx-RUN mode . Sxi-diract node 

USING pntr for dec pnt . , Stat .DOS parser 

Perstx 

Oldstx 

Current colour for graphic mode 

riulti-calour noda:colour 1 

Hulti-colour node, colour 2 

Foreground colour 

X-directi scale factor 

Y-dlrectlon scale factor 

Stop drawing. if not background colour 

Address pointer for graphic routines 

Temp storage 1 for graphic routines 

Teep storage 2 for graphic routines 

Status word for kernel Input/output 

Stop Flag: STOP key.RVS key 

lima constants Tor caaaatta operations 

Load flag I00-LDAD.S01-UERIFY 

Serial bua Flagicharecter in bufrer 

Cher, in bufrer For aerial bua 

Sync a For cess.EOT received Fro* tepe 

Temporary data address 

Index For file teblee, no. of open files 

Standard Input device (0 for keyboerd) 

Standard output device (3 for screen) 

Perltg byte from cassette 

Tepe flag, byte received 

Status flag For kernel 

Cassette error pass 1 : char error 

Cassette error pass 2 corrected 

21-hr real-time clock: 1/60-aec count 

Tenpcrary atorage for serial bus 

Countdown - SAUE on tape . sor . ho Ip ptr. 

Pointer Tor cassette bufrer 

Tape short counter, RS-232 input bits 

Tape read err.RS-232 counter input bite 

Tape e read flag. RS-232 atart bit flag 

Tape READ mode. RS-232 burfar input byte 

Tape short counter . R5-P3H input parity 

Polnterecreen scroll, case burrer Lo/Hi 

pointer proflrea end. cassette end Lo/Hl 

Caaaatta constant for time 

Pointer 'Start oF cassette buFFer Lo/Hl 

Tape help pntr,RS232 next bit for scroll 

EOT chart . RS-232 next bit for transfer 

Tape help pointer . RS-232 byte buffer 

Length oF Current Flleneme 

Logical file numberCLFK) 

Current secondery address <SA) 

Current device number (GA> 

PntriAddrass of current filensmo Lo/Hl 

Tape pntr, R5-P3P rotate parity buffer 

No. of remaining read/urlte blocks 

Serial buffer 

Flag : cassette motor 

Start address in/output CLo), track no. 

Start address in/output (Hi), sector no. 

Tape LOAD taitp.pntr kernel vector address 

Tape read/write data range 

Bank no. currant LOAD.SAuE.uTRIFY calls 

Sank no. oF currant filename IBB, SBC 

Pointer , RS-232 input burrer 

Pointer 'PS-53S output burrer 

Pointer : keyboard decoder teble 

Pntr to string pos. -kernel PRINT routine 

I"do" to keyboerd buffer queue 

Function key cell flag 

Function key string cell index 

Shift f leg. Shirt-*fl . MM . Ctr l-*0i , old-s08 

Fleg for keypress 

Fleg current pressed key (CHRS(0)-none> 

Fleg for INPUT or BET — keyboard Input 

Flag for 1fl/fl0 coluan modo 

Flag for text/graphic ecreen node 

Pointer for cher set.RAn/Ruti (only bit 2) 

Pointer ror MOULIN (Lo). <keyal*.bltmaak> 

Pointer For nouLlN <H1), < key 1 en, sever > 

Number of the Function key 

F-key string length up to current F-keg 

Bank for function key call<sedtl> 

F-key String length up to current (F-key-1) 

Pointer to running screen line: text RAM 

pointer running screen 1 ine : sttrlbute Ran 

Lower border of window 

Upper border of window 

Left border of window 

Right border of window 

Stert of running input column 

Start OF running Input line 

End of running input line 

Current cursor position. line 

Current cursor position, column 

neximum number of screen lines 



S3?F - 


238 


seorr 


23S 




210 


*■.■■•■ 


211 




212 


100F3 


213 


*JBI ■: 


211 


MkVB 


215 




216 


IMF' 


217 


*00F8 


218 


saei ■' 


PIS 


seer a- ( 


«FE 250- 


S0BFF 


PSS 


NOTE - 


When us 



laxinun number oF screen colunns 

Tamp storage of characters to be put out 

feoory . previous char (for ESC test) 

Colour code under cursor for cher output 

Colour code protection for INSERT/DELETE 

Fleg RUS mode active 

Flag Quote mode active 

Flag. Insert mode ective 

Fisg^Auto insert ective 

CutoFF switching of C-ShiFt (S80) end 

Ctrl S (S10) 

CutoFF oF screen scrolling 

Cutoff of beep tones meda by Ctrl G 

Free area For user applications 
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i me as for the C61 



1 KERNAL JUMP TABLE 



LABEL HE« ADD DEC ADD 



CINT 
laiNIT 
RAM T AS 

RESTOR 
UICTOR 
SET MSG 

SECDM! 

IKSA 

HEhTOP 

MEM80T 

BCNXEY 

SETTnO 

ACPTR 

CI OUT 

UNILX 

UNLSN 

LISTEN 

TALK 

READST 
SETLFS 

SETNAfl 
□PEN 
CLOSE 
CHKIN 

CLRCHN 

CHRIN 

CHPOUT 
LOAD 
SAUE 
SETT in 
RDTin 
STOP 
GET IN 
CLALL 

UDTin 

SCREEN 

PLOT 

'. HRASE 



SFFHB 

BFF4C 
1FF4F 

BFFS2 
■FFS5 
SFF7E 
0FF7F 
SFF88 
1FF81 
SFF61 
1FFB7 

■ FFBA 
SFFBO 



SFF93 
IFF96 
SFF99 
free 
•FFSF 

t' i "2 

sFFAS 
1FFA8 
5FFAB 
tFFAE 
1FFB1 

IF FBI 

SFFB7 
SFFBA 

SFFBD 
*FFC0 
SFFC3 
SFFC6 
SFFC9 
SFFCC 
IFFCF 

SFFD2 
SFFDS 
i-FT.R 
iFFU? 

1FFDE 
sFFEl 
SFFEl 
SFFE7 

1FFEA 
SFFEO 
SFFF0 
1FFF3 

1FFF6 
SFFF9 
BFFFC 
•FFFE 



BS3S3 

6S3SG 

65362 
65365 
651 06 
65107 
65*1 0B 
D5't0!l 
65412 
SSI IS 

S51P1 

6512M 
6S1P7 
65130 
65133 
65136 
65139 
65112 
6S415 
65118 
65151 
65151 
65157 

65160 

65163 
65166 

6516S 
65172 
65175 
6S178 
65161 



CODE 

JflP SB7C2 

JHP 0DC19 
JHP SFBD8 
JflP «F1lS 



S01 

JHP »DB1E 
JflP *F30B 
jnp 



DESCRIPTION 

Define function key no. after S76. 
addr. efter S22-23. length in acc. 
Print 

Print message 
Call n/C Monitor 
Not used 
Not uaed 
Not used 
Not used 

Initiellse editor 
Initiellse 1/0 

Init RAM, open cess buffer, sen to 



65187 
65190 
65193 
BSMM 
B5139 
65502 
h 

65508 

65511 

65611 

17 



GS523 

65526 
65529 
655 3? 
655 31 



J rlP BF2CE 
Jnp 1F2D3 
JhP IFllA 
JrIP sttlD 
jnp SEE 1 A 
JMP 1F427 
jnP IF43G 
J"P SDB11 
JnP IF423 
JHP SECBB 
jnp SECDF 
JHP BE FSB 
jnp SEF23 
jnp BEE2C 

JnP BEDFA 

JMP SF41C 

jnp 1F113 

jnp sFlBC 
jnp (B031B 
Jnp (S031A 
jnp <i03ic 
jnP (B031E 
jnp (B0320 
JnP (B0322 
jnp (S0321 
jnp »F0i3 
jnP if 191 
JHP SCF2D 
jnp SCF26 
jnp (S0326 
JnP (S032B 
jnp (S032« 

jnp SCEF0 
jnp SD831 

jnp BC839 

J"P IFC13 

jnp BFF3E 
jnp sFPAi 
jnp BFFF6 
jnp BFr«n 



Restore vectors 
Vector RAM 

Control KERNAL message a 
Send sec addr to listen 
Sand sac addr to talk 
set/read top RAn pointer 
set/read bottom RAn pointer 
Scan keyboard 

Sat timeout for (Optional) IEC-Bui 
Input byte from eerial port 
Output byte via serial port 
Coamand aerial bus to UNTALK 
Comnand aerial bus to UNLISTED 
Command ALL devices on bus 
to listen 

Command device on aerial bus 
to talk 

Read I /0 statua word 
Set llglcal primary and secondary 
addr 

Determine file names 
) Open a logical file 
) Close a logical file 
) Open channel ror input 
) Open channel For output 
) Close I/O channels 
) Input cherecter 
) Output character 
Load Tram peripheral device 
Store on peripheral device 
Set ties 
Raad time 
> Scan STOP key BF265 
) Read char From kb buffer 3EBD9 
) Close all channels and logical 
riles 
Increment time 
Identify X.Y screen set-up 
Read /set X.Y cursor positioning 
Base addr-reports back on I/O 
devices 
Switch on RDM 
Jump to reset routine 
Processor reset 
Processor I nterruot 



•EFS3 
SEE5D 
sEDlB 

•Ease 

SEF8C 

lEBEfl 
SEC1B 



C64 XERNAL ROUT I NFS 



HEX ADDRESS DESCRIPTION 



ES 

SE1EC 
SE50B 
SE5B5 
*E50A 
SES18 
SE511 

-,b:h 

IE SAB 

IESB4 
SESCA 

SE632 
SF684 
t E B B B 
SEODA 
SEBEA 
SESCB 
SE9FF 
SEA1C 
SEA21 
*EA31 
SEA87 
lEBlB 
SEB79 
SEBB1 
IEC44 
■EC78 
SECB9 
•ECE7 
■ECF0 
It 003 
if : ,v 



reaaagaB of the Operating systam 

Waits for Comaodore key 

Constanta for RS~a~ tleing 

Gets BAS I C- addr ess of the CIA or the UIA 

Gats screen format llne/COluen 

Sat cursor or get cursor position 

Screen reset 

Clear screen 



initialise video controller 

Get character fron keyboard buffer 

Waiting loop for keyboard input 

Get e character From the screen 

Checks for quote 

Calculate MSB for line sterts 

Table of colour codas 

Scroll scresn 

Shift line up 

Clear screen line 

Set character and colour on screen 
Calculate pointer on colour RAn 
Interrupt routine 
Keyboard prompt 

Chscks on shift. Ctrl end commodore keys 

Pointer on keyboard decoding tables 

Decoding tables 

Checks on control character 

Decoding tsbles 

Constanta for video controller 

'Load (cr) Run (cr) ' 

LSB tebles of acreen starts 

Send TALK 

Send LISTEN 

Output of byte on lEC-bus 



VOI R COMMODORE SERIOI S I SKRS C.I'IDE 
7"> 



COMMODORE PROGRAMMING 



SEDB9 

«0C7 

•EOEF 
1E0FE 
1EE13 
• EFB3 
SEEBB 
•EFHA 

tFeit 

II k,"Jb 
i> an ■ 

II 

•Fias 

wist 

SF1CO 
■F20E 

»f£sb 

■F291 
1F30F 
SF31F 
SF35F 
SF3iA 
SF19E 
SFSAF 
IF502 
SFbQD 

iraar 

1! b-JU 

IFBO.D 
SF6E1 
*F6ED 
SF6FB 
SF7et 
1F76A 

■ F'DC 
SF7D7 
SF7EA 

1FB0C 

SF617 
iFei>F 
»FS38 
•F811 
■Fern 
SFB6H 

■ FB6B 
iFBBE 

•FBE1 
ifvr 
*FB97 
1FBA6 
»FBC3 

SFCBB 

spcca 

SFCD1 

if LUH 
SFCE2 

SFOie 

IFQ1S 
*F 030 
IF CSS 

5F0F9 
1FEB0 
4FE07 
4FE1B 
SFE1C 
»FE51 
SFEcS 
SFE31 
•FEW 
SFECa 
*FF1B 



Send secondarg address For LISTED 
Send aecondery Bdi)r-«- for TALK 
Send UNTALK 
Sand UNLISTEN 

G«t a byte From the lEC-bue 
On* mllllMMOnd deleg 
Output 

Calculate ■ - -■ of RS£3£ date-bite 
Output in R3a3e buffer 

qei of Rsase 

Sat timer for IEC time-out 

Error Messages of the operating sgstem 

Put out nessagas 

BASIN get a character 

BSOUT output a character 

CHUN fixing of the input-device 

CKOUT ruing of the output-device 



Look for logical rile number 
Sat file pere«etsi 
CLALL closes all I/O channels 
OPEN 
LOAD 

Output 'Searching ror file nam*' 
Output 'Loading/ver I Tying' 

Output 'Saveing filename' 
UOTln increase running tie* 
Get ti-e 
Set time 
Aak 

Put Out error messages of the operating 
Read program header of tape 
Write header o" tape 
Get start address of tape buffer 
5et start and end address of the tape buffer 
Look for name on tape -header 
Increase tape buffer pointer 
waits for tape keg for reading 
Asks for tape keg 
Waits for tape keg for writing 
Read block of tape 
Load program or tap* 
Writ* tap* buffar on tape 
Write block or program on tape 
wait ror I/O end 
Checks on stop keg 
Read interrupt routine for tapa 
9*t bit counter for serial output 
Writ* on bit on tape 
Writ* interrupt routine far tape 
Sat IRO vector 
switch orr tape drive 
Checks on reaching or end address 
Increase address pointer 
RESE1 

Checks on HOa in SB0B0 or S.A00C 

ROM aodul* ld*ntiriO*tlon 

Sat or g*t hardware and I/O vectors 

Table or hardware and I/O vectors 

initialize work -—org 

Table of IRO vectors 

Set parameter for file names 

S*t parameter for active file 

Gat status 

Set Flag for -esssges of the operating sgste> 
Set status 

Set timeout flag for lEC-bus 
Set or get RAM-upper liait 
Set or got RAM-lower limit 
Mil routine 

Constants for RSI? 3? baud rate 
Interrupt handler 



jnP TABLE ADOBES 



J»F ADDRESS DESCRIPTION OF ROUTINE 



SFFB-I 
•FF87 
BFFBA 

Sf FBI) 
II ! -J J 

■ppse 

SFF99 
IFF9C 
sFFSF 
SFFAP 
IF FAS 
SFFAB 
sTFAB 

*F F«E 

sFFBl 
sFFBI 
SFFB7 
SFFBA 
sFFBO 
tFFCO 
SFFC3 
SFFC6 
11 I cs 
SFFCC 
IFFCF 
II > U, ■ 
SFFDS 
If FOB 
SFFOB 
SFFDE 
1FFE1 
5FFE1 
1FPE7 
SFFEA 

SFFEO 
•FFF0 

*FFF3 
1FFFA 
tFfFC 
IFFFE 



jnp 1FDA3 Initialize CIA's 

jnp SFDSe Clear or ch*ck ram 

JrtP SF015 Initialize I/O 

Jnp SPD1A Initialize I/O vectors 

Jnp sTElB Set status 

Jnp *E0B9 Send LISTEN secandarg address 

Jnp SE0C7 Sand TALK Secondary address 

jnp SFEM Set/get Ron end 

Jnp i! ■ 1 ■ Set/get RAH stert 

JHP IEAS7 Seen keyboard 

jnp SFE21 Sat lEC-bus time out Flag 

JHP SEE13 Input ror lEC-bus 

jnp SEDDD Output to lEC-bus 

jnp IEDEF Send UNIALK 

JMP 1E0FE Sand UNL I ST EN 

JMP SED0C Send LISTEN 

jnp IEDOS send talk 

jnp SFE07 Get stetu* 

JnP SFE0O Set file parameter 

JnP sFOFS Set Filename parameter 

JHP <M31A) 1F31A OPEN 

Jnp 1SB31C) SF291 CLOSE 

Jnp CS031E) «FaOE CHKIN set input device 

Jnp (*B3a«) tfdSe CKOUT set output device 

JnP (M33e» VF333 CLRCH 

Jnp CM32M1 SF1S7 BASIN input cherecter 

Jnp (10326) SF1CA BSOUT output character 

JnP SFH9E LOAD 

jnp 1FS00 SAWE 

Jnp SF6E1 Set tim* 

jnp 1F60D Oet time 

JnP I SQ328 ) SF6E0 Scan stop-keg 

Jnp (S032A) »F13E GET 

jnp (S«3eC) %fXf CLALL 

Jnp SFB9B Increase time 

jnp SESBS SCREEN get number lines snd colou« 

jnp SES0A Set/get cursor position 

JnP SE5B0 Gat start of I/O element 

Jnp SFE13 wii vector 

jnp SFCES RESET vector 

jnp sFFte IRQ vector 



HF < ADDRESS DESCRIPTION OF ROUTINE 



■ B0FI 

iflsao 

1EFEM 

sEaei 

•F81C 
1F81C 
IEE9B 
SC3F4 

IF 301 

SCA3F 
•CA76 
■CABB 

1CBB1 



*i • • • 

•F16C 
■Fie^ 

IE79S 
tFlAS 
• EtDC 
sl.:iHP 

lEeie 

SE61B 
•CAE A 

scite 

1IMAS 

scice 

*L«JL.:' 

*!)»::>■ 

IF 755 

SE^B 
sr-tpn 
aTlie 
•rns; 

SFS33 

II ] ' 

I!, i b: 
*Ziee 
VCS3D 
•CMC! 

ILtV I 
II 1 L 

SF1C1 
»C91B 

SBBCS 
*B6tl 

n:Hh,- 

«CBA6 
SB3FB 
SCOF? 
SCI 91 

icseF 

SCSAD 
*r7SR 
SC9BE 

*V.Bf-\ 



•F7C9 
SF70E 
SC6E7 
*E^6B 
SE5G9 
SCCBA 

tceii 

SCB58 

•cesB 

II 

SEF1B 
IEFB7 
SE7CE 
1EEF9 

SE5DG 

*CB7B 

•Ba^s 

»BB£! 
SBBIH 

IE IDC 
«C37C 
IE0EB 

■cosa 

ICCF6 
»BPF3 
SF841 

la,*:::: 

I - Ut'K 
ICLr |l 

SEH3E 
f EFBG 
*F93H 
SEF79 
SF1B6 

SF FB=. 

SEF79 
•F11C 
IF IBB 

sF?es 

SF7AS 

SF7EC 
SEEEB 
SE?MB 

SF7B1 
*F!09 



Adapt attribute Ron address 

Addresses of the individual monitor cmds (table) 

Baa* table for four number systems 

Bell create ton* 

BSOUT output not to screen 

Cl£8 mode routine 

CnPARE routine for PAR operations RAn 

CnpoRE routine for FAR operations ROM 

Chang* IRQ vector for tapa operation 

Check Comaodore keg for time delag 

Check ril*n*a* for burst mode 

Clear fro* cursor position to screen end 

Clear from cursor position to line and 

Clear from line start to line end 

Clear line overflow bit 

Comaodore/ Shi ft character set switch 

Commodore /Shift switch to 10-column mode 

Commodore /Shift switch to 88 -column mode 

Copg NM1 end IRO routines to sll banks 

CKOUT routine ror RS-233 output 

CXOUT evaluation on serial bus 

CHKIN eveluation on RS-S32 

CHKIN routine Tor R5-23? input 

CLOSE routine Tor tape operation 

Check caasette recorder-ksgboard 

Check tap* header address for validitg 

Check EXROM input form cartridge test 

Check RS-232 send parity 

Clear or sat auto-insert pointer 

Clear screen window 

Clear screen line in 40-column node 
Clear screen line in 90-coluan mode 

Convert acc contents into two ASCII characters IK/A) 
Convert acc to two ASCII characters and output 
Coordinate agstam status word 
Configure system as Commodore 61 
Copg a window line < rout ine-nGVLI N) 
Copy o uiindow lino in M-oolumn mooo 

C C o B n?ro-l"m;.:rg d :-o-ut r pu, 'ZB&iSP* 

Control massage; Output SEARCHING FDR filename 

Control message, output uXRIFYIng 

Copg cherecter sat into UDC Ron 

Conversion rrom ASCII characters to POKE codes 

Delate character under cursor 

Delete current input line 

Derina screen as window 

□•lata file entry Prom tabl* 

Delete a nia entry 

Delete character to the lert or tfva cursor 

Delete line on screen (with move) 

Display monitor register contents 

Determine sddress of a monitor command 

Datereine address of BRANCH commands 

Ueteraine tab position 

Disable or enable Commodore/ShiPt 

OnA cell routine or common eree m RAn 

Enable block cursor 

Editor IRO routine 

Evaluate decoder table eccording to shirt pattern 
Evaluate end store keypress 
Execute control cod* 
Execute escape sequences 
Execute insert 

Patch routine for FAR operations RAn 
Fetch routine for PAR operations ROn 
Patch routine for LSU operations 
Fetch routine ror charactor from filename 
Plash uic cursor 

Function ROM test ror C-lcfl aodo 

Get bit rrom aerial bus into carrg fleg 

Gat cursor position and set 

Get character rroa keyboard queue 

Get character and colour at cursor position 

Gat character F co» screen 

Set character from serial bus 

Get character from cassette 

Get cherecter rrom RS-232 

GET routine for RS-aSZ 

GET IN evaluation not ovar keyboard 

Glv* fest-mode pulse on seriel bus 

Increment tapa buffer pointer 

Initialize screen and editor 

Initialize editor and screen 

Initialization of monitor commands 

Initialize monitor for regular entry 

Initialize monitor after BREAK 

Initialize uDC registers 

Insert line on screen 

Interrupt routine ror tape read 

Interrupt routine ror tap* write 

Insert function keg string 

JMPFAR routine RAM 

jnPFAR routine ROM 

JSRFAR routine RAn 

JSRFAR routine RDM 

Jump to tab stop 

Kernel Ocptr routine 

Kernel BASIN routine 

Kernel boot routine 

Kernel BSOUT routine 

Kernel CHXIN routine 

Kernel CHRIN rout 1 to 

Kernel CHROUT routine 

Kernel CIDUT routi'wj 

Kernel CKOUT routine 

Kernel CLALL routine 

Kernel CLOSE routine 

Kernel CLRCH routine 

Kernel DMA call routine 

Kernel F5IMDDE rrtutinm 

Kernel UEICFG routine 

Kernel GET IN routine 

Kernel GOGt routine 

Kernel I0BA5E routine 

Kernel IDINIT routine 



YOI K l/OMMOIXIKK SKKIOl'S 1'SKKS GCIDK 



COMMODORE PROGRAMMING 



•FF17 

1E313 
»F'9D 
It ?BB 

if?bs 

8F772 
«F?63 

JFFCF. 

*FB6? 

ir*i7 

IE093 
SF6SE 
■F7H1 
SFF3D 
• ElO? 
SF73F 
IF738 
»F7SC 
IF731 

ifBB5 
1F7SF 

if ih? 

1E1EB 
1F5FB 

1ES86 

1E35& 
SFS3E 
I'bh* 
IE8SB 
ICG7E 

•F63C 
■CSEl 

SB97B 
«E9FB 

•fsea 

SF27B 

!!■ LSh 

1BIAB 



SB: 1 n 

111 1 

tu 

*81DF 
•8337 
»B15? 



SPBE - 
SB381 

1E8BS 

SEB7B 

1FCCB 
IEFF0 
1FO10 

1E75C 

■ FQ 15 

KCS? 

ttite 

•C76F 
*: 

sc7eo 

SF71E 
1-FF- 

IF9FB 
fEAAI 
1C363 

1FF.P- 
SCCA? 

1F1C5 

1I9FS 

smba 

issue 
SE987 

SEES7 
, iIF ,, 

IF30E 

SC6S1 
1C77D 
■rasa 

1FCAA 
«F9B3 

--H?. 

1E5FF 
S?f-;rf 
IE673 
SF6D1 

1EFB 1 
4C3QG 

1F5C8 

H >]1'« 
11,-B ■ 

SCACn 

SCABC 

SCAE^ 
1F23D 

•CA1H 
lEZ-iO 

SCB37 
SCDF9 
SC7ES 
1C7EC 
ICB93 
SCBDii 
sC DS7 



>."[ "Hi 

Kernel 
Kernel 
Kernel 



Horn tor coitaand: . 
Monitor coamsnd, ; 
Monitor command : > 
Monitor co«m»r«i 3 



donitor command I 
Hon l tor con 
monitor cc 



Kernel [TO routine 

Kernel KEY routine 1SFCB7 m International versions) 
Kernel L1STN routine 
Kernel LXUPLA routine 
Kernel LKUPSA routine 
Kernel LOAD routine 
Kernel ME HBO I routine 
Kernel MEMTOP routine 
Kernel NMI routine 
Kernel OPEN routine 
Kernel PHOENIX routine 
Kernel PRinn routine 
Kernel Ron I OS routine 
Kernel ROTIM routine 
Kernel READS I routine 
Kernol RES EI routine 
Kernel SECNO routine 
Kernel SETBNK routine 
Kernel SETFLS routine 
SEIMSG routine 
SETNAM routine 
SETTin routine 
SETTMO routine 
Kernel TALK routine 
Kernel TKDA routine 
Kernel UDTIM routine 
Kernel UNLSN routine 
Kernel UN TLX routine 
Kernel RESTOR routine 
Kernel SAVE routine 
Kernel STOP routine 
Kernel VECTOR routine 
Key repeat evaluation 
Keyboard matrix reed 

Keyboard row selection, Run/STOP-SHIFI 
Keyboard reed eveluete 

Keyboard buffer prepare for function key 

Load bank pointer end program countar fro" zero page 

Load program fron cassette 

LDAD routine 1" burst mode 

LOAD routine fron serial bus 

(assemble e line) 
(change register) 
(change memory contents) 
CdlBk command) 
Monitor coemand'A (assemble a line) 
Monitor coemend,C (compere memory areas) 
Monitor commend, 0 (disassemble memory) 
Monitor commend, F (fill memory area) 
Monitor commend,!! (Jump to XXXX without return) 
Monitor command,". (Seerch for memory contents) 
Monitor command , J (Jump to XXXX with RTS) 
Monitor co"«-q i (Loed a program) 
Monitor commend, n (display memory contents) 
Monitor command, R (display register contents) 
Monitor comnand S (Store a program) 

(move memory ereas) 
indu (compare program with aeaory) 
inox (exit) 

Monitor command, Convert number to different system 

NMI routine Tor R5-23? 

nmi routine for XS-ZX output 

NMl routine Tor RS-S32 input 

Output boot sector message 

Open file on serial bus 

OPEN routine Tor taps operation 

OPEN routine for RS-^^^ 

Output in RS-235 buffer 

Output ecc at cursor position 

Output combined accent 

Output space at cursor position 

Output byte on serial bus 

Output carriage return to screen 

Output character at cursor position 

Output character on screen 

Output found fllenaae on screen 

Output systea and control messages 

Prepare byte output on serial bus 

Prepare ecc contents in two ASCII characters (-99) 
Prepare cassette synchronization 
Preform linaroed 

Process received bit fron RS-535 

Program function key 

Read data block in burst mode 

Read date block from tape 

Bead data byte in burst node 

Read en input line terminated by RETURN 

Read program header from cassette 

Recelculate tope-end address 

Recorder oporetion end 

Recorder motor orf 

Reset routine 

Repeat keyboard logic 

Reset quote mode 

Reset CIAs to RS-23? 

Reset decoder table set vectors 

Recreate DOS output burrer 

Reset tab stops 

R5-53S output 

date-Bit number celculete 
M-»t NMI stetus set 
RS a3B start Bittest 
RS-?3? character output 
Scrol 1 screen up 

SAVE routine for tepe operation 
Seerch tape header for name 
Search for end of input line 
Search in logical file number table 
Scroll down 
Scroll up 

Scrolling permit or prohibit 
Set standard I'O devices 
Set window borders 

Set bit counter for sonal output 

Set or clear ball pointer 

Set attribute eddress for ettribute RAM 

Set character colour in H0-column aode 

Set character colour m BO-column mode 

set line overflow bit 

Set cursor Flash mode 

Set cursor et current column 



si;*;" 
IC15B 
SC87S 

'.7 



* •• - 
SES73 
SCBBF 
SC2B7 

I iV 

• F6BD 
SF7BC 
iru?: 
SFA6S 
*FAH8» 
SF7FB 
SCE8^ 
1C60D 



SCE7H 
StEBF 
SC7BC 
SEB18 
*BCE6 

IE8SB 

SESF8 
9ESC? 
SFCC3 

SCB7H 

»C?FF 

IH'rth 

1EA8F 
SE9DF 
SC80C 
tCBIA 
SCB^E 
VCB0B 
SOB?) 
SCBM8 
•CB3F 
s:;h .:- 

»cec7 

1"HFF 

BFE31 
fce»a 

SC9DE 

BC7B6 
SF3EA 
»EA70 
SE7EC 
SESBC 
SE9E9 
SE9CA 
SEA1S 

SE919 
SE919 
1EA1C 

SFFiT 



Set cursor to end or line 

Set cureor m screen window at KOrlE position 

Set cureor to left in window to left 

Set cursor up in window 

Sst cursor right in window 

Set cursor down in window 

Set cursor one position left in window 

Set cursor one position right in window 

Set old cureor address egsin 

Set cursor colour et cursor position 

Set filename to aerial bus 

Set or clear tab stop 

Set clock frequency to 1mh< 

Set or clear reverse node 

Set IK register 

Set program end eddress after LOAD 

Steah routine for FAR operations RAM 

Stash routine for FAR operations ROM 

Stash routine for LSu operetions 

Switch IB/80 column modes 

Sgatea IRQ routine 

System NMI routine 

Table of configuration valuea 

Table of function key assignments 

labia of function key codas 

Teble of IRQ vectors for tape operetions 

Teble of lnitlell»etion velues for 10-column 

Table of initialization values for 8B-colu-n 

Teble of control codes 

Table OF MHU lnltlellzetion values 

Table or monitor keywords 

Table of timer constents Tor RS-535 baud rate 

Teble for uDC Initialisation 

Teble for U1C initialization 

Test accent keys end combine accents 

Test line overflow bit 

Test quote character end sst painter 

Test separator between coemend operands 

Test for STOP key 

Test for tepe button 

Turn off cureor flesh mode 

Turn cursor flssh off for HZ column node 

Turn cursor flesh on for 19 column aode 

Turn cursor flash off for 80 column mode 

Turn cureor flesh on for 80 column mode 

Turn off 80 column reverse 

Turn on B0 column reverse 

Turn underline mode orf 

Turn underline node on 

Turn underline cureor on 

vector teble to ASCII decoder teblee 

vector teble to DIN decoder teblea( 1 ntemetionel 

versions only) 

Vector teble for editor routines 

Vector table for escape routines 

Vector table for control code routines 

Verify routine in burst node 

welt for tepe I'O termnetion 

Walt for end of transfer 

welt for fast mode response froa Bus 

wait for RECORO ft PLAY on datasette 

Wait for button on datasette 

Write tepe Buffer to tape 

Write bit to tape 

Write data block to tape 

Write header to tape 

Write dete block to tepe 

Write the header 







i wsi er a>i * ' t r t #~ a w ^ n n. » **ex . 

.... ■ BS,C !N_TERPREH_R_ApORtSSES 



HE I QDDRESS 



DESCRIPTION Ct RGu:i'tE 

start vector 
NMI vector 
CBMBASIC 

Addresses of the BASIC commends minus 1 
Addressss of the BASIC functions 

Hierarchy-codes end addresses of the BASIC operator' 

List of BASIC command uords 

BASIC error messages 

Messages of the BASIC interpreter 

5teck search-routine for FOR -NEXT and OOSUB 

Block-shifting routine 

Checks on space in stack 

Makes space in menory 

Output of 'Out of nenory ' 

Output of error meaaagas 

Breek vector 

Reedy vector 

Input welting- loop 

Cleer end inserting program lines 

Tie BASIC prog ran lines anew 

Gets s line into input buffer 

Output Of 'String too long' 

Change of a line into interpreter -code 

Look for etort eddress of e BASIC line 

BASIC-command NEW 

SASIC-conmand CLR 

Set program pointer to BASIC stert 
BASIC-CO.rn.nd LIST 

Chenge interpreter code to comeend word 
BASIC-command FOR 

Interpreter loop, carries out BASIC commands 
Carries out BASIC comnand 
BASIC-command RESTORE 

Interrupts program at pressed atop-key 
BASIC-command STOP 
BAISC -commend END 
BASIC-command CONT 
BASIC-command RUN 
BASIC command BOSUB 
BASIC-command GOTO 
BASIC-command RETURN 
BASIC-command DATA 
Looke for next 
Looks for neit line 



YOL'K COMMODORK SERUM'S I'SERS (il'IDE 
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COMMODORE PROGRAMMING 



sas2b 

SAS3B 



SAB IE 

sabse 

MM 



SACFC 
sni:u: 
snunn 

SOL'JL 

•oner 

1AD3E 
SOLUJ 

saeab 

SALCi 

1AEF! 

1MF7 

SAEFA 
SAEFD 
•"Ef F 
safbb 
saf?b 

SOFEb 

SAFE 9 

■ B016 

ioet 

SB113 
S8131 
SB 115 
SB1AA 
1B21S 
suets 
sufu: 
1B37D 
SB39E 
SB3A6 

»U3"L< 

SB3AE 
SB383 
SB3E1 
S83F1 

■ BIGS 
SB17S 
■BIB' 
SBS2G 

S353G 

SB6A3 
SB6EC 

sf v:: 
SB737 

IB77C 
8B7B2 
SB7B8 
•B73B 
iu 

SB7EB 
SB7F7 

SBBBC 

sbb?i 
sBeec 

SB8SB 
■BBSS 

SBUb ' 

SUHn 
SBnHH 
SHOPF 

spna;: 
SBAF2 
1BAF9 
SBOFE 
SBB0F 
SBBI2 
SBBBO 
SB BOP 
iflpn 
SBBCA 

SBBDD 
SBBFC 

SBC IB 

SBC2B 
sRnp 

iRrsp. 
s sr""R 
S8CCC 
SBCF3 

SBrQ3 

SBDC? 
SBDCC 

SBDDO 

SBF11 
SBF1B 
SBF71 
SBF7B 

SF F7 R 
*R ; B = 

SBFED 

sEBta 

SE05S 

sebgc 
s > ■ 

SEI07 
s = : en 

SEll^ 



SIC line 



right) 



BASIC-comnand IF 
B AS I C-command HE" 
BASlC-conaand ON 
Looks roc address of 

BASIC-< L ET 

BASIC -command PRINTS 
BASIC-co— and CHO 
BASIC-eommend PRINT 
Output String 

Output empty charactar (Or cun 
Error handling for INPUT 
BASIC-eommend 8EI 
BASIC-command INPUT" 
BASIC-command INPUT 
BASIC -command READ 

Output 'extra ignored" and '7redo from atart ' 
BASIC-command NEXT 

FRtiNu" gat* tar- and checka on numeric 

Chacka on nuaarlc 

Checka on atring 

Output of ' Type mismatch' 

FRMEUL gats and evaluates tarn 

Gat arithmetic torm 

Floating point constant for PI 

BASIC-command NOT 

Gats term in parenthesis 

Checks on Parenthesis cloaad 

Checks on Parenthesis open 

Cnacka on Comma 

Cnscks on characters ln accumulator 
Output of 'Syntax error 1 
Gata variable 

BASIC cn*»ard OR 

BASIC -command AND 
Coapar 1 son opara t 1 ona 
BASIC-command Din 
Chacka for lattar 

Calculates pointer to rirat array -element 

Floating point constant -32766 

Change FAC to INTEGER 

Output or 'Bad eubecripe 

Output of 'Illagel-guantltu' 

Calculates array sue 

BASIC-runctlon FRE 

BASIC-runctlon POS 

Checks on direct-mode 

Output of 'Illegal direct' 

Output of "Under -d runetlon' 

BASlC-commend DEF 

Checks on FN syntsx 

BASIC-f unction FN 

BASIC-runctlon SIRS 

String administration . celculate pointer on string 
Establish atring 

Garbage collection, re-ova unwanted strings 

String connection '*• 
String adelmatration FRESTR 
BASIC-runctlon CMRS 
BASIC-runctlon LEFTS 
BASIC-functlon RIGHTS 
BASIC-runctlOn MIDS 
BASIC-functlon LEN 
Gat atring parameter 
BASIC-functlon ASC 
Oats bwte tarm (0-2S5) 
BASIC-functlon UAL 

Gets address (0-65S3S) and byte value (0-2SS) 
Change FAC to address- format (Range 0-65S3S) 
BASIC-function PEEK 
BASIC-COamand POKE 
BASIC-command WAIT 
FAC - FAC -8.5 

ninuS FAC - conatsnt (A/Y) - FAC 

hlnus FAC - ARC - FAC 

Plus FAC - constant (A/Y) - FAC 

Plus FAC - ARG • FAC 

Output or -Ovarriouf- 

Floating point constant for LOG 

BASIC-function LOG 

Hultipllcatlon FAC - conatant (.A/1) • FAC 

Hultlpllcatlon FAC - ARG • FAC 

ARG - constant t A/V J 

FAC - FAC - 10 

Floating point constant 10 

FAC - FAC/ 10 

FAC - constant <A/Y> / FAC 
FAC - ARG /FAC 

Output of -Dlviaion by aero' 
FAC - constant (A/Y> 

AcCuBI " FAC 

Accu"3 - FAC 
"enable ■ FAC 
FAC - ARG 
ARG - FAC 

Round FAC 

Get eigne of FAC 

BASIC-function SGN 

BASIC-functlon ABS 

Coopers constant (A/V» with FAC 

Change rrom FAC to integer 

BASIC-function INT 

Change ASCII to floating point 

Floating point constants for Floating point to ASCII 
Output of line nusber at error messags 
Output or positive Integer nuaber (0-6SS3S) 
Change FAC to ASCII Format 
Floating point conatant 0.S 
Binary number a For change or FAC to ASCII 
BASIC-function SDR 
FAC - constant <a/Y> to the 
FAC - ARG to the power or FAC 
Floating point constant for EXP 
BASIC-functlon EXP 
Series 1 polynomial calculetlon 
Series S polynomial calculetlon 
Floating point conatant for RND 
BASIC-functlon RND 
Output or Break* 
850UT output of character 
BASIN receive a charactar 



Irsck Uk 


._..„. , 


Range of 


Sectors 


lata I ■ 


sectors 


S. Sided 


D.Sitloi! 


HEX 


DEC 


HEX 


DEC 


HEX 


DEC 






S01-SU 


• 1-17 


S00-S11 


00-ffB 


SIS 


21 


YES 


YES 


sif-sia 


ie-2i 


S00-S12 


00- IB 


S13 


19 


YES 


YES 


S19-S1E 


25-30 


S0O-S11 


00-17 


SIP 


IS 


YES 


YES 


S1F-S23 


31 35 


soa-sio 


00-16 


Sll 


17 


YES 


YES 


«2i-s3i 


1.1 


S0B-tlt 


Bfl-PB 


SIS 


ei 


NO 


YES 


S3S-S3B 


S3-S9 


S00-S12 


00-1B 


S13 


is 


NO 


YES 


S3C-S11 


60 -SS 


S00-S11 


00-17 


sie 


le 


NO 


YES 


S12-S1G 


G6-7B 


SS0-S10 


00-16 


Sll 


17 


NO 


YES 


BAn 


FORnAT 


1SH - TRACK 











pouer of FAC 



SE11E 


CHKIN establish input-device 




SE12H 


OETIN get a charactar 




SE1?A 


BASIC-comaand SYS 




SE156 


BASIC-COamand SAUE 




SE16S 


BASIC-comaand UERIFY 




SLIL'J 


BASIC-Co-mand LOAD 




SE1BF 


BASIC-command OPEN 




SE1C7 


SOS I C- command CLOSE 




SE1D1 


Get parameters for LOAD and SAUE 




SES1S 


Get parameter for OPEN 




SEcGl 


BASIC-function COS 




SEP6B 


BASIC-functlon SIN 




SE2B1 


BASIC-functlon TAN 




tZEtO 


Floating point constants for SIN an< 


1 CDS 


SE30E 


BASIC-function ATN 




SE33E 


Floating point constsnts for ATN 




SE37B 


BASIC Nfll Jump- in 




SE394 


BASIC cold start 




SE3A? 


Copy OF the CHRGEI routine 




Sr i?n 


Start value ror the RND Tunction 




SF3BF 


initialize rah for basic 




SEn7 


Table of BASIC vectors 




SE1S3 


Load BASIC vectors 





aisxniE FDCtAts ■ layouts 



BLOCK DISTRIBUTION BY TRACK 



B<IE NU1BER CONTENTS DEFINITION 



1 

e 

3 

* 

5 

B 

7 

S 

S 

10 

11 

ETC 

110 
111 
11? 
113 

Hi -159 
160-161 
16P-1B3 
161 

IBS- 166 

1B7-170 
171-PS5 



3 

171 -Bet 
S3B 

P3S-211 

ais-2S0 

SSI -ESS 



18 

1 



ID. .. 



160 
160 



Irsck of next directory block . Always IB 
Sector of ne*t directory block. Always 1 
ASCII chararacter A indicating 1S11/S1/71/ 
Double sidsd flag. Ignored on 1S11 
Number oF sector available on track 1 
Track 1, aector 0-7 availability map 
Track 1. aector 6-16 availability map 
Treck 1, sector 17-?3 availability map 
Number of sector svsl labia on track S 
Track 2, sector 0-7 availability nap 
Track B. sector B-16 availability map 
Track a. sector 17-23 availability map 



Number or aector available on track 3S 

Track 35. sector B-7 availability map 

Track 3S, aector B-16 availability map 

Track 35. sector 17-23 availability map 

Disk name padded -ith shifted spaces CCHRSU60)) 

Shifted space CCHRS(160)] 

Disk 10 

Shifted apace (CHRS<160)J 

ASCII representation or ?A which are reapactlvelu the 
DOS veraion (21 rormet type 1510/11/51/71/1010/2030 
Shifted spaces (CHRS(160>3 
Nulls CCHRSC0)). not used 



1571 Drive as above eicept , - 



Double aided riag SBB-Oouble Sided. SBB-SIngle Sidad 

skills ICHRS(B)J. not used 

Number of sector available track 36-52 

(each aector by eech byte) 

Number of sector available track S3 

(always 0. all aectora allocated 

Number sector available tk 51-SSIeach tk by eech byte) 
Nu-ber aector available tk 6B-BS(each tk by each byte) 
Number aector available tk 66-76(eech tk by each byte) 



PROG RAT! FILE FOR-AT 



BYTE 



■ji::-t'.::i:]N 



FIRST SECIOR 

0.1 Track and aector of next block in program File 1 

2,3 Load address oF program 

1- 25S Next 252 bytes of prg info stored as in comp *«n .( key words tokenized) 
REMAINING FULL SECTORS 

8.1 Track and aector of next block ln program Filal 

2- 2S5 No-t 2S1 bytes of prg inFo stored aa in comp sen . (keywords tokenned) 
FINAL SECIOR 

0.1 Null (S00), Followed by number of valid data bytes in sector 

Lsst bytes of prg info stored as in comp nam . (key words tokenlred ) .The 
end of e BASIC file IS marked by three rero bytes in e row. Any 
reeeining bytes ln the sector are garbage and may be ignored. 



BYTE 



DEFINITION 



ALL BUT FINAL SECTOR 

0.1 Track and aector 



of next soQuentu 



VOl K COMMODORE SERIOUS USERS Gl IDE 
78 



COMMODORE PROGRAMMING 



Tim. SECTOR 

1,1 Null (IN), Followed by 

l-rrt Lest bytes of data, Any 




>er of valid data bytaa In 
lining Bytes ara garbage a can ba ignored 



BYTE 



Q*I*> BLOCK 

•i 1 Track and sector of next data block 

5-555 554 bytaa of data. Empty record* contain IFF Call binary anas) in th* 
First byte followed by sea (all binary zeroes) to the end oF (he 
record. Partially Filled records are padded with nulls (S0B) 

SIDE SECTOR BLOCK 



:tor block 



»-l Track and sector of next aide 

S Side sector number C0-S) 

3 Record length 

H-S Ireck end sector of firat aide sector (number 0) 

Track and sector of second sids sector ( number 1) 

B-S Track end sector of third side sector (number 5) 

10- 11 Track end sector of fourth side sector (number 3) 

15- 13 Track end sector of fifth side eector (number 4) 

11- 15 Track and sector of sixth side sector (number S> 

16- 555 Trsck end sector pointers to 1P8 dsta blocks 



Pit FILE FOtnet.TKmCK 16 SECTORS 1 IS 



"~£ DEFIN;I1QN 

•.1 Track end eector or next directory block 

£-31 File entry 1 

Ut-63 File entry B 

66-SS File entry 3 

98-157 File entry 4 

138153 File entry S 

162-191 File entry 6 

191-553 File entry 7 

556-5SS File entry 8 

STFUCTURE DF EACH INOIUIDUAL DIRECTORY ENTRY 



BYTE 
■ 



i-e 

j-ie 

is-ao 

>: 

K-5S 

M-57 

?8-59 



CONTENTS DEFINITION 



158'type 



Fill 



File type OR'ed ml" S80 to indicate properly cli 
(iF OR'ed with SCO instead, file is locked) 
TYPES : B - DELeted 

1 - SEOue-tlel 

2 - PRCCre- 

3 - USER 

4 - RELstlve 

Track and sector of firat data block 
File name padded with shirted spaces 

Rel rile only. Trsck and sector of first side sector 

Rel file only. Record length 

UNUSED 

Ireck and eector of replacement file during en SSAuEoreOPEN 
Number of blocks in file, atored as a two-byte integer in 
normal lo-byte hi-byte foreat 



CRIUE ADDRESS 



KfX 


DECIMAL 


DESCRIPTION 


ma a 


e 


Command code For bufFer 0 


IMS! 


l 


Command code for buffer 1 


mae 


E 


Command code for buffer 5 


til!-- 


3 


Command code for buffer 3 


t??,<- 


1 


Command coda for buffer 4 


10886-0007 


6-7 


Track and sector for buffer 0 


imob aaa>j 


8-9 


Trsck and sector for burfar 1 


ICOf* - £&AB 


18-11 


Track and sector for buffer 5 


IW6C-BB8D 


15-13 


Trsck snd sector for burrer 3 


M02J 800 F 


14-1S 


Treck end sector for bufrer 4 


m:?-0Oi3 


18-19 


10 for drive B 


*Mii-aeis 


50-51 


ID for drive 1 


•0016-0017 


55-53 


ID 


Me?e-aeai 


32-33 


Flag for head transport 




4B-49 


Buffer pointer for disk controller 


M83S 


57 


Constant 8, mark for begining of date block 


MOW 


S8 


Parity Tor data burrer 


tar--. 


61 


Drive number for disk controller 


SM3F 


63 


Burrer number Tor disk controller 


MH3 


67 


Number or sectors per treck for formating 


i:,vi- 


71 


Constant 7, mark for begining of data block 


W849 


73 


5tsck pointer 


!.'-•■■ 


74 


Step counter for head transport 


50251 


ei 


Actual track number Tor rormstting 


10063 


10s 


Step size For sector division (IB) 


1036° 


186 


Nutiber of reed attempts CS) 


l.V"" B0?8 


111-115 


Pointer to address for n and B comsanda 


seB" 


us 


Device number - SPB (35 dec) for Listen 


S087B 


150 


Device nueber * 840 (64 dsc) for Talk 


K0?9 


151 


Flag for listen (I/O) 


Stl n 


155 


Flag for talk (I/O) 


M87C 


154 


Flag for ATN from ssnal bus receiving 


880711 


15S 


Fleg for E0I froe aerial bus 


10B7F 


157 


Or i ve numbe r 


i.'OBS 


156 


Treck nueber 


»ee i 


159 


Sector nueber 


wese 


130 


Channel number 


88863 


131 


Secondary address 


N0B4 


135 


Secondary address 


WZU', 


133 


Oats byte 


Hoee-sean 


139-141 


Work storage for division 


Mest-gess 


14B-149 


Actual buffer pointer 


Magg-easA 


153-154 


Address of burfar 0 SB 330 


taesB-aasc 


155-1S6 


Address of bufrer 1 S0400 


H09C-*O9E 


157-156 


Address of buffer 5 S0S00 


53ZSF-0BA2 


159-160 


Address of bufrer 3 S0608 




161-165 


Address or bufFer 4 S0700 


<8fA3-B6A4 


163-164 


Pointer to input buffer S0500 


H0O5-eeo& 


IBS- 166 


Pointer to buffer error message 10505 


Me^s-aaen 


181-186 


Record number L0, block number L0 


iieBB-eece 


1B7-195 


Record number HI. block number Ml 


•Nci-eecs 


133-198 


Write pointer for REL file 


8I8C7-00CC 


199-504 


Record length for REL file 



SB0B4 


515 


Pointsr in record for REL rile 


5.-.: . 


513 


Side sector number 


ssam 


514 


Pointer to data block in side sector 


sp.ir ■ 


515 


Pointer to record in REL file 


1.1BI ' 


531 


File type 


s.-'.-v- ■ 


549 


Buffer number 


SB1B0-0145 


556- 35S 


Stack 


S8500-0558 


S15-SS5 


Buffer for coemand string 


80540 


586 


File type 


so; 5H 


600 


Record length 


S0PS9 




Treck side-sector 


saeso 




Sector side-sector 


8B574 


658 


Length of input line 


S0578 


635 


Number of file names 


SB597 


663 


File control nethod 


•05 B0 -0584 


640-644 


Ireck or a rile 


80585-0583 


64S-64S 


Sector or a file 


SeaDS-05F9 


755-761 


Burfar for error eessagas 


S0£FA-05FC 


765-764 


Number of free blocks 


SB 300 03FF 


76B-1053 


Buffer a 


10-0B-0TFT 


1054-1579 


Buffer 1 


S0S00-0SFF 


1580-153S 


Bufrer 5 


• CbCa 3hf - 


1 536- 1791 


Surfer 3 


S0700-B7FF 


1795-5047 


Buffer 4 



1541 DISK ERROR MESSWiES 
AND THEIR CAUSES 



The following, list ere the error messages that the DOS can recognise. Note 
that TT and SS denote Track and Sector respectively. 



ERROR fajnBER 
00. OK, 00.00 

50, READ ERROR, TI. 55 

51, READ ERROR. II. SS 

55. READ ERROR. TI , SS 

53, READ ERROR. II, SS 

54, READ ERROR, IT. 55 

55, WRITE ERROR. IT, SS 



56, WRITE PROTECT DN.TT.SS 

57, READ ERROR, TT, 55 
5B. WRITE ERROR. II. SS 

59. DISK ID nlSnmlCH.TT.SS 

10. SYNTAX ERROR , 00,80 

31. SYNTAX ERROR. 00, 00 

35, SYNTAX ERROR. 00, 00 

33. SYNTAX ERROR. 00, 00 

34, SYNTAX ERROR. 00. 00 

39, FILE NOT FOUND, 00. 00 
SB, RECORD NOT PRESENT , 00. 0 



SI, OVERFLOW IN RECORD. I 



55, FILE 100 LARGE. 00. 00 



DESCRIPTION 

This messsge occurs when the last disk operstlon 
was error free or if no coemand or data was sent 
after the last srror messsge. 



Ihis error means that the header' of a block was 
not found. It is usually the result or a defective 
disk. II and SS deaignete the treck end sector in 
which the error occured . Remedy: change the disk. 

Ihe SYNC marker of a block was not round. The 
cause may be an nFormatted disk, or no disk in the 
drive. This error can also be caused by misaligned 
read'write head. Remedy, Either inaert a diskette 
end format the disk, or have the heads aligned. 



Thla error nerns that e checksum error has 
occured in the header of a data block, which can 
be caused by the incorrect writing of a block. 

This error implies that a data block was read Into 
the 005 buffer, but a checksum error occured. One 
or -ore dsta bytes ere incorrect. Remedy. Seve es 
■eny files ss possible onto erothor diskette. 



This error elso results Trom a checksum error In 
the data block or in the preceding data header. 
Incorrect bytes have been read. Remedy: Sana aa 53 

This le actually a UER1FY error. After writing 
every block tha data la read again, checked 
against the dsts in the burrer. This error is 
producsd if the data are not identical. Remedy: 
Repeat the command that caused the error. If this 
does not work, the corresponding block must be 
locked out From further use by the Block-allocate 



An attempt was made to write to a disk with the 
write protect tab on. Remedy: Remove the tab. 

A checkau* error occurred in the header of a data 
block. Remedy: Repeet command or rescue block. 

After writing e dete block, the SYNC cheracters of 
the next data block were not found. Remedy Format 
the disk again, or exchange it. 

The ID in the 00S memory doea not agree with the 
ID on the diakette. Ihe diskette waa either not 
initialized or there Is sn error in the header or 

e dete block. Remedy; Inisislize diskette. 



■s sent over the comeend channel that 
the DOS could not understand. Reaedy: Correct cmd. 

A coamand was not recognized by the DOS. Remedy: 
Do not use the command. 

The command ssnt over tha command channel was over 
40 cheracters. Remedy: Shorten the command. 

A wildcard. ( " or "?") wee used Lfi sn OPEN or 
SAVE comesnd. Remedy: Remove wildcard. 

The DOS cannot find the filename in a command. The 
cause maybe a colon was forgotten after the cmd. 
word. Remedy: Check coamand. 

User program or type "USR' was not found for 
automatic execution. Remedy, Check filename. 

a record wee addressed in a relative data rile 
that haa not yet been written. When writing a 
record this is not really an error. You can avoid 
thia error message ir you write the highest 
record number of the file with CHRS(55S> when 
initializing it. This error will no longer 
occur upon later access. 

The number of characters sent when writing s 
record In e retstlve rile wee greater than the 
record length. The excess characters are ignored. 

The record number of e relative file is too big. 
the diskette does not have enough capacity. Re«ed k 
Use another diskette or reduce the record number. 



YOUR COMMODORE SERUM'S USERS GUIDE 
79 



COMMODORE PROGRAMMING 



so. write file open. 00.0a 

bi.file not 0PEN.ee.ee 
62, FILE NOI found, 00,00 

53. file Extsis.ee.ee 

BI.FILE TYPE MISMATCH , 00 . 00 
65. NO BLOCK, TT. S3 



An stteept MM aede to OPEN a file that had not 
bean previoualy been CLOSEd after writing. Remedy: 
■Jse mode TV in the OPEN command to read fill. 



a flla 



66. ILLEGAL II or SS.TT.SS 
67. ILLEGAL TI or SS.TT.SS 

70. NO CHANNEL . 00 . 00 

71. DIR ERROR. IT. SS 
7?. DISK FULL.ee. 00 

73. cBn dos v.?g i5Hi.ee. 00 

74. DRIUE NOT BEADV.Be. 00 

75. FORMAT SPEED ERROR. 00 . 0? 



-aa accessed that had not bean OPENea. 
OPEN the me or check the F.leneme. 

An attempt waa mode to load a progrant or open a 
rile that doee not exist on the disk. Remedy i 
Check the filename. 

An attempt was made to establish a new file with 
the nans of en existing file on the disk. Remedy : 
Use different naaa or use M 

The file tgpe used m the OPEN commend does not 
eoroe with the Pile tgpe in the directory. Remedy 
Correct filetype. 

This messsgo is given in association _ . r the 
Block-allocate command when the specified block is 
no longer free. In this case. the DOS autonet leal ly 
searches for a free block with a higher sector end 
/or track number end gives these values es the 
treck and sector number In the error message. If 
no block with a greater number is free, two zeroes 
will be given. 

If you ettempt to use a block with the block 
commands that doee not e*lst, this error la then 
returned. 

The track-sector combination of a file produces s 
non-existent track or eector. 

An ateapt was made to open more riles then 
channala available or a direct access chennel 
is already reserved. 

The number of free blocks in the DOS storage does 
not agree with the BAT . Usually this means the 
disk hes not been initialized. 

Fewer then three blocks srs free on the disk or 
the meximum number of directory entries have 
been ueed. C144 on the 1S41>. 

The message is the power-up Message of the 19(1. 
na an error eessage. it appears when an attempt is 
made to write to e disk that was not formatted 
with the same DOS version. 

The drive does not have a diskette inserted. 

Ihle error only occurs on the CB« B250 . It 
indlcetes a devietlon from the normal revolution 
speed whilst Formatting. 



STANOARC CB" KEYWORD TOKENS 



HEX 


geg 




HEX 


ge: 




HEX 


DEC 






CEL 




























tee 


32 


SPACE 


*13 


67 


C 


*tih 


131 


Din 


SAS 


16S 


STEP 




33 


1 


•11 


68 


D 


SQ7 


136 


READ 


SAA 


170 


• ADD 


S2? 


Ti 




SIS 


69 


E 


see 


136 


LET 


SAB 


171 


- MINUS 


S23 


35 


• 


SIB 


70 


F 


S89 


137 


GOTO 


SAC 


172 


* MULT I PLY 


S21 


36 


■ 


S17 


71 


G 


SBA 


13B 


RUN 


SAO 


173 


/ Dlv 


s2s 


37 


X 


sie 


72 


H 


SSB 


139 


IF 


SAE 


174 


' POWER 




3B 


■ 


SI 9 


73 


I 


in.: 


ne 


RESTORE 


SAF 


ITS 


AND 


•27 


39 




SI A 


71 


J 


sea 


141 


GDSlIB 


SBB 


176 


OR 


tee 


10 


c 


SIB 


75 


K 


SBE 


142 


RETURN 


SB1 


177 


> GTR THAN 


S23 


11 


) 


SIC 


76 


L 


S8F 


143 


REM 


SB2 


178 


- EQUAL 


KA 


12 


• 


SlO 


77 


n 


sse 


144 


STOP 


SB3 


179 


< LESS THAN 


S2B 


13 


• 


SIE 


78 


N 


S91 


14S 


□N 


SB4 


iee 


SON 


sac 


11 




S1F 


79 


0 


S92 


146 


WAIT 


SBS 


181 


INT 


" : 


15 




S50 




p 


S93 


147 


LOAD 


SB6 


182 


ABS 


S2E 


16 




S51 


Bl 


a 


S91 


tie 


SfiJZ 


SB7 


183 


USR 


MP 


47 




SS2 


B2 


R 


S95 


119 


VERIFY 


SB8 


1B1 


FRE 


tie 


IB 


• 


SS3 


B3 


S 


S96 


ISO 


DEF 


SB9 


IBS 


PDS 


S31 


19 


1 


SSI 


81 


T 


SS7 


1S1 


POKE 


SBA 


186 SOB 


132 


se 


2 


S5S 


as 


U 


sse 




PRINTS 


SBB 


1B7 


RNO 


133 


51 


3 


S56 


86 


y. 


S99 




PRINT 


SBC 


18B 


LOG 


S34 


52 


1 


SS7 


87 


V 


S9A 


151 


CONT 


SBD 


1B3 


EXP 


S35 


53 


S 


SSB 


8B 


X 


SSB 


1SS 


LIST 


SSE 


190 


COS 


S36 


51 


8 


SS9 


ii -j 


Y 


S9C 


156 


CLR 


SBF 


1S1 


SIN 


•37 


SS 


7 


S5A 


90 


z 


S9D 


157 


CTtD 


see 


IS? 


TAN 


S38 


56 


a 


S5B 


SI 


c 


SSE 


1S8 


SYS 


SCI 


133 


ATN 


539 


57 


3 


SSC 


92 


t 


S9F 


153 


OPEN 


SC2 


191 


PEEK 


S3A 


SB 


: 


S5D 


93 


J 


SAB 


160 


CLOSE 


SC3 


195 


LEN 


SSB 


59 


1 




91 




SA1 


161 


;;ft 


SCI 


196 


SIRS 


S3C 


60 


< 


S5F 


SS 


L. ARROW 


SA2 


162 


NEW 


ICS 


197 


UAL 


S3D 


61 




see 


12B 


End 


SA3 


163 


TAB( 


see 


198 


ASC 


•3E 


62 


> 


sei 


129 


FOR 


SA4 


164 


TO 


SC7 


199 


CHRS 


•3F 


63 


T 


S6? 


130 


NEXT 


SA5 


IBS 


FN 


see 


200 


LEFTS 


sie 


61 


t* 


SB 3 


131 


do:° 


SAb 


166 


SPEC 


SC9 


201 


RIGHTS 


■ii 


65 


A 


SB1 


132 


INPUT" 


SA7 


167 


THEN 


SCA 


202 


niDS 


S42 


66 


B 




133 


INPUT 


SAB 


168 


NOT 


SCB 


203 


GO 



■li mi 1 i ell in iir el 



HEX DEC 



HEX SEC 



HEX DEC 





128 END 














SB0 


SOA 


17B 


* 




sos ; 


*13 ELSE 


S81 


123 FOR 


SAB 


171 






[11 RESunE 


SB2 


130 NEXT 


SAC 


172 






5D7 I 


•15 TRIP 


S83 


131 DATA 


SAO 


173 


/ 


| 


sue « 


•16 TRON 


SB4 


132 INPUTS 


SAE 


171 


■ pcwiv 




IDS I 


?l? TROFF 


ses 


133 INPUT 


SAF 


17S 


r,\:. 


SCA i 


■!! 


i "31 M 


SB6 


13H DIM 


SB0 


176 


OR 




IDR i 


!li 


1 UOL 


SB' 


135 READ 


SB1 


177 


> 


sue < 




1 AUTO 


see 


136 LET 


SB? 


178 






■00 1 


ret 


PUDEF 


S83 


137 GOTO 


SB3 


179 


< 




IDE i 


tffi 


1 GRAPHIC 


SBA 


138 RUN 


SBl 


:eo 


SGN 




IDF i 


:e: 


1 PAINT 


S8B 


139 IF 


SB5 


181 


INT 












IE0 < 


9*1 


: CHAR 


SBC 


110 RESTORE 


s-=, 


182 


ABS 




IE1 i 




i BOX 


tec 


111 G0SU8 


SB? 


183 


USR 




IE? ' 




i CIRCLE 












YOUR 


COM MO D 



S8E 


112 


RETURN 


SBF 


113 


REM 


sse 


144 


STOP 


SSI 


14S 


ON 


S32 


146 


WAIT 


S33 


147 


LOAD 


S94 


118 


Sn«E 


S95 


119 


VERIFY 


S96 


1S0 


DEF 


S97 


1S1 


POKE 


S96 


1S2 


PRINTS 


S99 


1S3 


PRINT 


S3A 


1S1 


CONT 


S9B 


1S5 


LIST 


S9C 


156 


t:r-:i 


S9D 


1S7 


CLR 


SSE 


158 


SYS 


S3F 


1SS 


OPEN 


SA0 


1B0 


CLOSE 


SA1 


1B1 


GET 


SA? 


162 


-FU 


SAS 


163 


TAB( 


SA1 


161 


TO 


SAS 


165 


FN 


SA6 


166 


SPC< 


SA7 


167 


THEN 


SAB 


168 


m: 


SA9 


163 


STEP 



sbg :Bi 
SBS IBS 
SBA IB6 
SBB 187 
SBC 186 
S8D 1B9 
SBE 190 
SBF 191 
SC0 132 
SCI 133 
SC2 194 
SC3 135 
SCI 196 
SCS 137 
SC6 198 
SC7 193 
SCB 200 
SC9 201 

S"A 

SCB 203 
SCC 201 
«CD 205 
SCF 207 
SD0 206 
SOI 209 
SO? 210 
SD3 211 
SDl 212 



FRE 
POS 
SOR 
pub 
LOG 
EXP 
COS 
SIN 

TAN 

ATN 

PEEK 

LEN 

STRS 

UAL 

ASC 

CHRS 

LEFTS 

SIGHTS 

MIOS 

00 

RGR 

RCLR 

JOY 

ROOT 

DEC 

HEXS 

ERRS 



SE3 227 
SEI 228 
SES 229 
SES 230 
SE7 231 
SCB 232 
SE3 233 
SEA 234 
SEB 235 
SEC 236 
BED 237 
SEE 239 
SEF 239 
SFO 240 
SF1 241 
SF2 242 
SF3 213 
•F1 244 
SF5 24S 
SF6 246 
SF7 247 
SFB 218 
SFS 219 
SFA 2SB 
SFB 251 
SFC 252 
SFD 2S3 



SSHAPE 
SSHAPE 

DRAW 

LOCATE 

COLOR 

BCNCLR 

SCALE 

HELP 

00 

LOOP 

EX 1 1 

01 RECTORY 

DSAUE 

DLOAD 

HEADER 

SCRATCH 

COLLECT 

(iL-mif 

BACKUP 
DELETE 
RENUMBER 
KEY 

MONITOR 
USING 
UNTIL 
WHILE 



128 DOUBLE-BYTE TOKENS 



HEX 




DEC 






HEX 




DEC 






















SCE 


sea 


206 


e 


POT 


SFE 


Sll 


251 


17 BLOAO 


SCE 


S03 


206 


3 


p.irp 


SFE 


SI? 


251 


18 RECORD 


SCE 


sei 


206 


4 


PEN 


SFE 


SI 3 


251 


19 CONCAT 


SCE 


S0S 


206 


S 


RSPPOS 


SFE 


Sll 


251 


20 DOER I FY 


SCE 


S06 


206 


6 


RSPRITE 


SFE 


SIS 


2S4 


21 DC LEAR 


SCE 


S07 


206 


7 


RSPCOLOP 


SFE 


S16 


2S4 


22 SPRSAv 


SCE 


see 


206 


a 


XOR 


SFE 


S17 


2S4 


23 COLLISION 


SCE 


see 


206 


9 


RWINDOU 


SFE 


SIB 


251 


21 BEGIN 


SCE 


S0O 


206 


ta 


POINTER 


SFE 


SI9 


251 


25 BEND 


SFE 


S02 


2S4 


5 


BANK 


SFE 


S1A 


251 


2G WINDOW 


SFC 


S03 


254 


3 


FILTER 


SFE 


SIB 


2S4 


? 7 BOOT 


SFE 


S01 


251 


1 


PLAY 


SFE 


SIC 


254 


28 WIDTH 


SFE 


ses 


251 


5 


TEMPO 


SFE 


SID 


254 


29 SPPDEF 


SFE 
SFE 


S06 
SO 7 


2S4 


a 


mouspp 


SFE 


SIE 


251 


30 QUIT 


254 


♦ 


SPRITE 


SFE 


S1F 


254 


31 STASH 


SFE 


SOB 


2S1 


a 


SPRC0L0R 


SFE 


S21 


254 


33 FETCH 


SFE 


SOS 


2S1 


a 


RPEG 


SFE 


S23 


254 


35 SWAP 


SFE 


S0A 


254 


10 


ENVELOPE 


SFE 


IP' 


251 


36 OFF 


SFE 


SOB 


2S4 


11 


SLEEP 


SFE 


S2S 


251 


37 FAST 


SFE 


»nr 


2S1 


12 


CATALOG 


SFE 


S2B 


251 


38 SLOW 


SFE 


SOD 


251 


l-l 


:;i:f-n 










SFE 


SBE 


?5l 


11 APPEND 










SFE 


SBF 


254 


IS 


Gll::^>: 










SFE 


S10 


254 


16 BSAUE 













ABBREVIATION 


KEYWORD 


<ihbreu:atic. 


KEYWORD 


03R = Ei-lal !GN 


ABS 


AshirtB 


GOSUB 


GOshirtS 


READ 


RshirtE 


ASC 


AshlftS 


GOTO 


GshlftD 
GshiftR 


RENAME 


REshiftN 


ATN 


AshiftT 


GRAPHIC 


RENUMBER 


PENshiftU 


AUTO 


AshlflU 


GSHAPE 


GahlftS 


RENUMBER 


RENshlftU 


BACKUP 


BshlftA 


HEAGER 


HEShlftA 


RESTORE 


REshiftS 


BOX 


BshlftO 


HEXS 


KehlftE 


RESUME 


RESshiftU 


CHAR 


CKshlftA 


INPUTS 


IshiftN 


RETURN 


REshiftT 


CHRS 


Cshif tA 


INSTP 


INshiftS 


RGR 


RahirtS 


CIRCLE 


CshirtI 


JOY 


JshiftO 


RIGHTS 


Rahirt I 


CLOSE 


CLshlftO 


KEY 


KshiftE 


RLUM 


RshiftL 


CLR 


CshirtL 


LEFTS 


LEshlftP 


RND 


RshlftN 


CMD 


Cshlfth 


LET 


LshtftE 


RUN 


RshiftU 


COLLECT 


COLshlftL 


LIST 


LshirtI 


SAUE 


SshirtA 


COLOR 


CDshlPtL 


LOAD 


LshlftO 


SCALE 


SCshirtA 


CONT 


CshirtO 


LOCATE 


LOshirtc 


SCNCIR 


sshirtc 


COPY 


coshirtP 


LOOP 


LOshlftO 


SCRATCH 


SCshiftR 


DATA 


DshirtA 


"IDS 


Mshirti 


SGN 


SahiftG 


DEF FN 


DahirtE 


MONITOR 


Mahirto 


SIN 


Sshiftl 


DELETE 


OEsnlftL 


NEXT 


NshirtE 


SOUND 


Sshirtc 


DIM 


DshirtI 


ON . . GOSUB 


ON. .GOshirt5 


SPC< 


sshirtp 


DIRECTORY 


DlshirtP 


ON. .GOTO 


ON. .GShlftO 


SOR 


SshiftO 


DLOAD 


DshlftL 


OPEN 


oshirtp 


SSHAPE 


sshirts 


DRAW 


DshlftR 


PAINT 


PshlftA 


STOP 


SshiftT 


G5PUE 


DshlftS 


PEEK 


PshlftE 


STRS 


STshlftR 


END 


EshlftN 


POKE 


PshlftO 


SYS 


SshiftY 


ERRS 


Eshiftfl 


PRINT 


T 


TABC 


TshlftA 


EXP 


EshlftX 


PRINTS 


PehlftR 


TRAP 


TshiftR 


FOR 


FshiftO 


PRINT USING 'USahirtI 


TROFF 


IRDshiftG 


FRE 


PehlftR 


P.^FF 


PahlftU 


TRON 


TRshirta 


GET 


Gshtf tE 


RCLR 


RahiftC 


UNTIL 


Ushif tN 


GETKEY 


QETKshlPtE 


ROOT 


Rah if to 


USR 


UshlftS 



NOTE , - Any keywords not listed indicates that there is not abbrevietlon 
for that particular keyword. 



128 ABBREVIATED KEYWORDS 



ABS 

APPEND 

ASC 

ATN 

AUTO 

BACKUP 

BANK 

BEGIN 

BEVG 

BLOAD 
BOOT 



ABBR EVIATION 

AshlftB 
AshlftP 
AshiftS 
AshiftT 
AshiftU 
BAshiftC 
BshlftA 
BshiftE 
BEshif tN 
BshiftL 
BshiFtO 



REWORD 


ABBREVIATION 


Kf r-L.ORG 


<»BBREw:Ar:cf< 


PRE 


Fshif tR 


RENUMBER 


RENshlftU 


GET 


BshiftE 


RESTORE 


REshiftS 


GEIKEY 


GETKshif tE 


RESUME 


RESshiftU 


DDSUB 


GOshiftS 


RETURN 


REshiftT 


GOTO 


GshiftO 


RGR 


RshiftG 


GRAPHIC 


GshiftR 


RIGHTS 


Rshift! 


GSHAPE 


GshiftS 


RNO 


RshlftN 


HEADER 


HEshif tA 


RREG 


RshirtR 


KELP 


HEshirtL 


RSPCOLOR 


RSPshiftC 


HEXS 


HshiftE 


RSPPOS 


RshiftS 


INPUT" 


IshiftN 


RSPRITE 


RSPshiftR 
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8S»JE 


BmhirtS 


IN5TR 


(Mam r>>i 


Bunp 


Belli f tu 


JOY 


t«h i rt n 


: BTAL 00 


cshirtA 


KEY 


K*rii lit 


CHAR 


"i. 1 ■ fto 


LEFTS 


T r*K ,fi r 


CHRS 


Cahif tH 


LET 




CIRCLE 


Cah 1 f t 1 


LIST 


t m ■ r * I 

s«»n t 1 


CLOSE 


CLahif to 


LOAD 


Lshif to 


cur 


Cshif tL 


LOCATE 


1 n«ihi err* 


CIO 


Cshlftn 


LOOP 


i n^h 1 f r n 

UIWI1 1 kU 


COLLECT 


COLLshlftE 


MIDI 


Hah 1 f 1 1 


COLLISION 


COLshiftL 


MONITOR 


nrwtM prN 




rm i r in 

w UL 311*1 LU 


tint L - - o 


nanirtc 




C9H1 f CO 


rat a 4 




COPV 




U<t 1 1 JU3UO 


□N . .GuanlrtS 


DATA 




(Taj (tm n 
Ln ■ ■ uu 1 u 


DN . . Dsn if tu 




npf *ht r»r 


□ PEN 


Oahif tP 


rin nil 


n ■ hif tr 

UBnlT IL 


PAINT 


PahiPtA 


3ELETE 


DEshiftL 


PEEK 


PEahtrtE 


Oil 


D^rM f t. J 


rin 


PahlFtE 


DIRECTORY 


Diahirtn 


PLAY 


PahlftL 


DLOAD 


Dahirtl 




RMiiru 


XPE* 


DehlftO 


POT 


PahiftD 


DOAM 


"■hire* 


PRINT 


T 




OahlFtS 


PRINT!) 


PahiftR 


CUERIFY 


DshlftU 


PRINT USING 


**uSshiftl 


ENVELOPE 


EaMftN 


PUDEF 


PshiftU 


errs 


EehirtR 


RBurlP 


RBshif tu 


EXIT 


EXahlftI 


RCLR 


RshiftC 


EXP 


EaMftX 


ROOT 


Rah if tO 


FETCH 


FahirtE 


RE«l; 


REshiFtA 


FILTER 


Fehirti 


RECORD 


RahlftE 


FOR 


FahlftO 


RENAfiE 


REaMFtN 



RUN 

RWINOOU 

SAVE 

SCALE 

SCNCLR 

SCRATCH 

SON 
SIN 

SLEEP 

sr: i\n 

SPRCOLOR 

SPROEF 

SPRITE 

SPRSAU 

SQR 

SSMAPE 

STASH 

STEP 

STOP 

STRS 

SWAP 

TABC 

TEMPO 

TRAP 

TROFF 
IRON 

UNTIL 

LS» 

VERIFY 

vOL 

Wl - 

WILE 

WIDTH 

WINDOW 

KOR 



Rah 1 feu 
RahiftW 
SahiftA 

SCahlFtA 
SaMftC 

SCahiftR 
Sahif tO 
SahiftI 
SahiftL 
SshiftO 
SPRshiftC 
SPRshiftD 
SahlTtP 
SPRahiftS 
SahiFtO 
SsMftS 
SahiftI 

SlahirtE 

STahifCD 

STahlFtR 
Sahif tu 
TahiFtA 
TahiTtE 
TahiftR 
TROamrtr 

TRshiftO 
UshiftN 
uahiftS 
u»hiftE 
uamno 
WahiftA 
wahlftK 

WlahiftD 
Wahiftl 
XshiFtO 



MJTE - Ang keywords not listed Indicates that there la not abbreviation 
for that particular keyword. 







PLUSH COLOUR CODE S 



waive to POKE for each colour: 



:--au» 

Black 

wriita 

Pad 

Cyt" 

Purple 

Green 

Blue 

Yellow 

Or ana a 

Brown 

"ellow-grei 

Pink 

Blue-green 
Light blue 
Dark blue 
Light 



UALUE 
1 

3 

4 
S 



9 

ie 

11 
i? 

13 
11 
15 
16 



C64 SCN'COLOuR COOES ' 10CES 



value to POKE for each colour ; 



HIGH NYBBLE nuLTiraLOU* 



COLOUR 


CXI OUR UALUE 


LX'LL'J* l-,: 


rn 


Black 


0 


■ 


B 


Unite 


1 


1G 


3 


Red 




3S 


10 


Cya" 


3 


ie 


11 


Purple 


1 


61 


15 


Qree" 


s 


Be 


13 


Blue 


6 


9G 


IH 


Yellow 


7 


ne 


15 


Grange 


B 






Broun 


3 


144 




It Red 


10 


16C 




Dark Grey 


11 


17B 




had Grey 


It? 


IS? 




Lt Green 


13 


KM 




Lt Blue 


11 


est 




Lt Cf «u 


IS 


ate 





iere to POKE colour values for each node: 



BIT OR 



-ODE £0: 1 


1IT-PAIP 


L0CAT1UN 


■■ .: .? jr.: ..1 


Regular | 


1 


S33B1 


Lou nubble 




1 


Col Our - r" - 1 : t u 


Loh ng bb 1 e 


lulticolour 0C 


S3i?B: 


Law nubble 


ta«t 01 


WIPB? 


Low "gable 


■ 


10 


S3<?83 


Low ngbble 


i 


.1 


Colour me for u 


Select Bulticolour 


[■tended ( 


V 


S3?BI 


Low ngbble 


colour teat S 


11 


, ■■ 'I- • 


Low rabble 


til | 


10 


'.J.'H i 


Il-u n u b : 1 1 


1 




S3?B4 


Low ngbble 


Bitnapped ( 


t 


Screen memorg 


Low ngbble CB1 


) 




Screen eeeoru 


High ngbble tSJ 


nuiticolour ( 




S3PB1 


Low ngbble ISi 


biteepped 1 


>1 


Screen menorg 


High ngbble E21 


10 


r re- ~ t :if ., 


Low ngbble 


11 


Cu I ii' 1 -r-r: r 


LOu ngbble 



controlled by POKEg 53580 with 



[01 For ell ~odea. the screen border colour 
the low ngbble colour value. 

C1J In extended colour mode, bite 6 8 7 of e . C h Bgte of screen memory, serve ea 
the bit-pair controlling background colour. Because only bit* 0-5 are 
available Tar cherecter selection, onlg cheracters with screen codas 0-63 
can be used in this mode. 

CPJ in the bitmepped -ode*, the h 1H h and law ngbble colour values are OR*d 

together and POKed into the 3AHE LOCATION ,n screen »e-or u to control the 
coloura of the corresponding; CELL in the bitmep. For e.a»ple : to control 

on?c C ?: 0 " rm °f Cel1 8 ° f tnB oltmB P- QR t"* hi B h and low nubble value* end 
POKE the result into location 0 of screen memory. 



C1?B COLOUR COCtS 



COLOUR SOURCF 



40 colu-n background colour CUIO 

1 Foreground for graphic* screen (yici 

5 Foreground colour 1 for multicolour acreen CUIO 

3 Foreground colour ? Tor eultlcolour acreen (UIC) 

H 40 column border (UIC - whether in te.t or graphic 

S Character colour for 40 or B0 column text screen 

b 80 column background colour (BS63) 

ilua to POKE for each colour 40 column eode 



COLOUR 


UALUE 


Bleck 


1 


White 


e 


Red 


3 


Cyan 


1 


Purple 


5 


^: nnn 


B 


31^ 


7 


Yellow 


8 


Orenge 




Brown 


10 


Light red 


11 


Dark gray 


IS 


riediue gray 


13 


Light oc*on 


14 


Light blue 


IS 


Light grey 


16 



Ualue to POKE for each colour: 



column modO: 





OALL-E 






Black 


1 


White 


e 


Oark red 


3 


Light cgen 


4 


Light purple 


5 


Dark green 


6 


Derk blue 


7 


Light yellow 


8 


Derk purple 


3 


Brown 


10 


Light red 


11 


Derk cgen 


ie 


"odium gray 


13 


Light green 


11 


Light blue 


15 


Light gray 


IE 



— 



CHRS 


KE»5 










CHRSlc) 


CTRL 


B 


CHRS(S) 


CTRL 


e/CTRl E 


CHRBC 7) 


CTRL 


G 


CHRS<8) 


CTRL 


H 


CKRSO) 


CTRL 


I 


CHRSU0) 


CTRL 


J 


CHRSt 1 1 ) 


CTRL 


K 


CHRS(ie) 


CTRL 


L 


CHRBC13> 


CTRL 


n 


CHRS ( ID 


CTRL 


'. 


CKRK 151 


CTRL 


0 


CHRS* 17) 


CTRL 


j 


CHRSI IB) 


CTRL 


9 


CHRSC 131 


CTRL 


•2. 


CHR«<e0) 


CTRL 


T'OFL 


CHRS C 57) 


CTRL 


t/ESC 


CHRS(58> 


CTRL 


3/CTRL / 


CHRS(c9> 


CTRL 


1/CR5R 


CHR»(30; 


CTRL 


6 


CHRS<34) 


*• 




CHRS1159> 


CBM I 




CHRSI 1 30 ) 






CHPS(131> 






CHRS(133) 


Fl 




CHRS(1341 


F3 




CHRSI 1351 FS 




CHRS(1361 


F7 




CHRS(137) 


F5 




CKRSI138) 


F4 




CHRS< 139) 


F6 




CHRS< 140) 


FB 





FuwritON 

Underline (80 col) 

Set char color to white (80 and 10 col> 

Produce bell tone 

Disable cher set change keg 

Enable char set change keg 

nova cursor to next tab position 

Send cerriage return with line Teed 

Send e line reed 

Disable char set change keg 

Enabio c nar sat change key 

Send cerr ret, line feed S enter BASIC line 

Set char set to lower/upper case set 

Turn flash on (80 col) 

" cursor down one row 

Chera to be printed in reverae Tield 

hove cursor to home position 

Delete last char typed 

Sand an ESC character 

nake char color RED (40 and B0 column* 
nave cursor one column to right 
Set cnar color to GREEN (40 and 80 coluan? 
Print double quote on aen ft aet quote eode 
Set char color ORANGE (40 col). DARK PuPPl.F 
(80 col) 

Underline off (B0 column) 

Run e progreeme. (Onlg works from kb bur Tec 

Reserved CHRS code For Fl key 

Reserved CHRS code for F3 key 

Reserved CHRS code For F5 keg 

Reserved Chps code for F7 keg 

Reserved CHRS code for FB key 

Reserved CHRS code for F4 keg 

Reserved CHRS code for F6 key 

Reserved CHRS code for FB key 



CGI 1 







N 


Y 


Y 


V 


N 


V 


V 


N 


Y 


N 


N 


V 


Y 


N 


N 


Y 


N 


Y 


H 


Y 


Y 


V 


Y 


Y 


N 


Y 


Y 


V 


Y 


V 


Y 


Y 


Y 


Y 




Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


V 


Y 


M 


Y 


»Y 


r 


Y 


V 


V 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


Y 


V 


V 



YOl K COMMODORE SFRIOI S USERS GUIDE 
s 1 



COMMODORE PROGRAMMING 



CHM(IHJ) SHIFT RETURN 



CHRSU12) 
CHRSdlS) 
CHRS(lll) 
CHR»( 14S) 
CHMUW 
CHRS< 147) 
CHRK 14B> 
h-s 143) 

CHRS( ISO) 
CHRK 1S1 > 

CMRlC 152) 

CHRS1 153) 

CHRSUSD 
CHRSC1SS) 
CHR»(1S6> 
CHRS(157> 
CHRK1S8) 



CTRL 1 
CRSR UP 
cm a 
HOT1E 
INST 
CBn a 
CBn 3 
CBn i 
CBn 5 
CBn B 
CBn 7 
CBn 8 
CTRL 5 
CPSR LEFT 
CTRL 1 



Send carnage return ana una read without 

entering a line of basic V Y 

Sat char set to upper case eel V Y 

Turn riaah off (8B colu-n) N V 

Set char color to BLACK (10 and BO col) V V 

nova cursor or prmtiu up ona row Y 

Terminate reverse field mode V Y 

Cleat -iindou screen ft position csr topleft V 

nove char fro<n cursor position right 1 col Y V 

Set Cher color BROWN (10) DARK YELLOW (80) Y Y 

Set Cher color LI OKI RED (IB ana BB column) Y Y 

Set char color DARK BRAY (10) DARKCYAN (B01 Y Y 

Set char color "EOrun GRAY (40 and B0> Y Y 

Set char color LIGHT GREEN (40 end 80) Y Y 

Set cher color LIGHT BLUE <48 and 90) Y Y 

Set cher color LIGHT GRAY (40 end SO) Y Y 

Set char color PURPLE (40 ana 80) Y Y 

novo cursor left one column Y Y 

Set char color CYAN (40 end 80) Y Y 



ESCAPE KEYS 



FS- 0 

ESC B 
ESC C 
ESC D 

SSL E 

ESC F 
ESC G 
ESC H 
ESC 1 
ESC J 
ESC K 
ESC L 
ESC n 
ESC N 
ESC 0 
ESC P 
ESC 0 
ESC R 
ESC R 
ESC S 
ESC T 
ESC U 
ESC u 
ESC w 
ESC X 
ESC X 
ESC Y 
ESC 2 
ESC 9 



ESCAPE FUNCTION 

Enable Auto insert node 

Set bottom of scm window at cursor postition 

Disable auto insert mode 

Delete current line 

Set cursor to non flashin H mode 

Set cursor to flashing mode 

Enable bell <bg control -0) 
Disable bell 

Insert a line 

nova to start of current line 
nove to end of current line 
Turn on scrolling 
Turn off scrolling 

Return to normel ecreen displeu Bl«e (128 in F 
Cancel insert .quote . reverse and flash modes 
Erase all up to atart of current line 
Erese ell to end of Current line 
Reduce screen display 

Set screen to reverse video (128 80 col only) 

Change to block cursor (128 80 col) 

Set top of screen window to top left corner 

Change to underline cursor (128 80 col onlg) 

Scrol 1 screen up 

Scroll ecreen down 

Cencel eSC function (plus 1 onlg) 

Swap 10/80 column display output device 

Sat default tab stop (8 spaces) 

Clear all tab stops 

Clear to end of screen 



PLUS1 1?H 



CBi kivcodes stored AT LDDCXION 107 



KEY 




KE* 


KEYCODE 










A 


IB 


6 


19 


S 


28 


7 


24 


c 


20 


8 


27 


0 


IB 


9 


32 


E 


11 


0 


3S 


F 


11 


+ 


40 


D 


£6 




43 


H 
I 


M 
33 


£ 

CLR'HOME 


a 


J 


34 


INST /DEL 


B 


K 


37 


Lt .ARROW 


S7 


L 


42 




16 


n 


36 


• 


19 


M 


39 




SI 


a 


38 




15 


p 


11 




50 


a 


62 




53 


R 


17 


RET 


1 


S 


13 




47 


T 


22 




41 


U 


30 


/ 


55 


U 


31 


CSR UP/ DOWN 


7 


M 


9 


CSR LT/RT 


2 


X 


23 


Fl 


1 


Y 


25 


n 


s 


Z 


i? 


FS 


6 


1 


ss 


F7 


3 


s 


ss 


SPACE 


60 


3 


B 


RUNSTOP 


63 


1 


11 


NOKEY PRESSED 


64 


S 


16 







vaulee to be found et location 653 



CODE KEV( a ) PRESSED 



No key pressed 

SHIFT 



SHIFT and Commodore 
CTRL 

Shift end CTRL 

Commodore and CTRL 

SHIFT. CTRL end Conmodore 



•4 TED CHIP - "EMORY "AP 



l. 



REG HEX ADO DEC ADD BITS DESCRIPTION 



0 


0FF00 


SS2B0 


1 


1FF01 


bwa: 


s 


%rraa 


esaae 


3 


1FF03 


6S2B3 


1 


SFF01 


■■■■ 


S 


sTFBS 




6 


S'-VBh 





I, Reload low 

1. Reload high 

2. low 

2, high 

3, low 



■ppee 

SFF89 



6S2B7 



0-2 

3 

4 

5 
6 
7 
B-5 
3 

4 

5 
G 

7 



Timer 3, high 

vertical scroll position (Y) 

Select 21/2S rows (1-35) 

Switch screen off 

Switch bitmap mode -ON) 

Switch extended color -ode (1-DN) 

Testblt (elweys 0) 

Horizontal scroll position (X) 

select 3B/1B columns (1-40) 

Switch multicolor mode :- '. 

Switch freeze node on (l-ON) 

PAL/NTSC mode (0-PAL i 1 -NISC) 

RUS video (0-hardwere: 1-aortuare) 

Keyboard matrix 

Interrupt sources 

Not used 

Raster interrupt 

light pen (Not possible with C-1B) 
Timer 1 Interrupt 
Timer S interrupt 
Not used 

Timer 3 interrupt 



Y 


Y 


10 


SFF0A 


65290 




mm — - — w — ■ 

Interrupt masking 


Y 


Y 








B 


Bit B of Raster compere (Register 11) 


Y 


Y 








1 


Raster interrupt 


Y 


Y 








2 


Light pen (Not possible with C-16) 


N 


Y 








3 


Timer 1 interrupt 




Y 








1 


Timer 2 interrupt 


N 


Y 








5 


Not used 


N 


Y 








6 


Timer 3 Interrupt 


Y 


Y 








7 


Not used 


Y 


Y 


11 


Sf F0B 


65291 




Rsster comparison (bitO-7) 


Y 


Y 


lei 


1FFBC 


6S292 


8-1 


Bit 8-9 of cursor position (Register 131 


Y 


v 








2-7 


hint i ivari 


Y 


Y 


15 


sFfOD 


6S293 




Hardware cursor position (blt0-7) 


Y 


Y 


11 


SFF0E 


65291 




Frequency voice 1 (bit0-7) 


Y 


Y 


is 


SFF0F 


65eS5 




Frequency voice e (bit0-7> 


Y 


Y 


16 


IFF IB 


65296 


0-1 


Frequency voice 2 (bitB-9) 


Y 


Y 








2-7 


Not used 


Y 


N 


17 


IFF 11 


6S297 


0 ..' 


Volume (0-OFF: 1S-LDUDEST) 


N 


Y 








1 


Switch voice 1 U-ON) 


N 


Y 








S 


Switch voice 2 rectengular (1-ON) 


Y 


Y 








6 


Switch voice 2 noise (1-ON) 


N 


Y 








7 


Sound reload bit 


Y 


Y 


18 


0FF12 


65298 


0-1 


Bit 8-9 frequency voice 1 (register 11) 


Y 


Y 








2 


RAn/Pon bank <0-RArM-ROM) 


Y 


N 








3-5 


Address of bitmep RAn (bit 13-15) 


N 


Y 








6-7 


Not used 


N 


V 


19 


SFF13 


65299 


0 


RDn bank status bit (reed only) 


N 


Y 








1 


force singleclock bit : 1-prohibit double time freq 


N 


Y 








2-7 


Address of character set (bitlO-15) 






20 


SFF11 


6S380 


C 


Not used 












3-7 


Addrees of video RAn (bitll-lS) 






21 


SFF15 


65301 


0-3 


Background 0 color 












1-6 


Background 8 luaimscence 












7 


Not used 






:e 


SFF16 


65302 


0-3 


Background 1 color 












1-6 


Background 1 lummiscence 












7 


Not used 






23 


1FF17 


6S3B3 


0-3 


Background 2 color 












1-6 


Background 2 luainiscence 












7 


Not used 






a i 


IFF IB 


65301 


B-3 


Background 3 color 












1-6 


Background 3 lummiscence 












7 


Not used 








1FF19 


F.< TCi, 


0-3 


Frame color 












1-6 


Fraae lummiscence 












7 


Not used 






26 


SFF1A 


65306 


0-1 


Bit 8-9 of bit map reload (register 27) 












2-7 


Not used 






27 


0FF1B 


65307 




Bit map roloed of character position ibit 0-7) 






2B 


SFF1C 


:■ 306 


3 


Bit 6 of roster-row (register 29) 












1-7 


Not used 






29 


1FF1D 


ES309 




Current raster row (bit 8-7) 






30 


0FF1E 


6S310 




Current rester column (bitl-8) 






31 


SFF1F 


65311 


0-2 


vertical sub address 












3-6 


Flash rate 












7 


Not used 






62 


*FF3E 


65312 




R0n-»elect (write only) 






63 


IFF3F 


65313 




RAn-select (write only) 



UIC-CH1P ADDRESS t 



SD02E (53218-53291 > 



n [j uwt .1.: 





DEtmnc BIT 


□£GCRIPTIDN 












SDB0B 


53216 


Sprite 0 - X 


position (bits 0-8) 


1-301 


53219 


Sprite 0 - Y 


position (bits 0-8) 






Sprite 1 - X 


position 


scac i 


53251 


Sprite 1 - Y 


position 




53252 


Sprite 2 - X 


position 


5: . 


53253 


Sprite 2 - Y 


position 




S3251 


Sprite 3 - X 


position 


SDB07 


53255 


Sprite 3 - Y 


position 




53256 


Sprite 4 - X 


position 


■ □003 


53257 


Sprite 4 - Y 


position 


snaaa 


S3258 


Sprite 5 - X 


position 


mBBR 




Sprite S - Y 


position 


»D03C 


53260 


Sprite 6 - X 


position 


soaan 


53261 


Sprite 6 - Y 


pos 1 t i on 


i 




Sprite 7 - X 


position 






Sprite 7 - Y 


position 



VOI R COMMODORE 



SKRIOl'S I'SKRS (II IDK 



COMMODORE PROGRAMMING 



•Dfia 53261 



ice:: 



•C012 53266 

SM13 53267 

■Ml S326B 

It* 15 53569 



•D016 53270 



•Ml? 53271 



•D01B 53272 



IM19 53273 



SD31A 53574 



•0818 532 7S 



•O01C 53276 



•MID 53277 



K»IE 53278 
•Clip 53279 



•uWl 

SOOfl 
1M?6 

»-.' ■■ 

I0828 
IDKC 

•OWE 



53261 

5 J.H ! 
S32BS 

S32B6 
S32B7 

53299 
53298 
53291 
53292 
53293 
53231 
53296 



9th Bit of sprite X co-ordinate 
■ Sprite 0 

1 Sprite 1 

2 Spnta 2 ate through gpnig 7 
VIC Control Register 

7 Pastor compare register. Bit 3 

fi 1-Enable extended colour text mode 

9 1-Enable bit "tap mode 

4 l-Blenk screen to border 

1-25 rou text display. 0-24 row te>t display 
2-0 Snoot h scroll to V dot position 

Raster compere register. Position of rester on scree" 
Light pan X position 
Light pen y position 
Enable or disable sprite 

• 1-Enable sprite 0 

1 1-Enable sprite 1 

2 1-Enable sprite 2 etc through sprite 7 
VIC Control Register 

1 1-MultlcolOur node on 

1-40 Column text 0-39 coloumn text 

2- 0 Saooth scroll to X position 

Sprite Vertical Expansion 

• expand sprite 0 vertically 

1 Expand sprite 1 Vertically 

2 Expand sptite 2 Vertically ate through to sprite 7 
VIC nemory Control 

7-1 Video matrix base address 

3- 0 Character set base address 

VIC Interrupt Flags 
7 Set. to any VIC IRQ condition 

3 Light pen triggered (bit 7) 

E Sprite vs sprite triggered (bit 7) 

Sprite v» background triggered (bit 7> 

0 Rester compare triggered (bit 7> 
VIC Interrupt Switches 

3 1-Enable light pan interrupt 

2 1-Sprite vs sprite enabled 

1 1 -Sprite vs background enabled 
0 1-Rsster compare enabled 

Sprite Priority Registers 

0 1-Sprite 0 passes in front or graphics 

1 1-Sprite 1 passed in front of graphics etc through sp 7 

Sprite aulti-colour select 

• l-Sprite 0 is multicolour 

1 l-Sprite 1 le multicolour etc through sprite 7 

Sprite Horizontal Expansion 

0 1 -Sprite B expanded horizontally 

1 1 -Sprite 1 expanded horizontally etc through sprite 7 
Sprite ua sprite collision detection. If a sprite Is 
touching a sprite, the bit for that sprite is turned on. 
Sprite vs background. If sprite has hit text or 
background, relevant bit is set. 

Border colour 
Background colour 
hulti-colour 1 
riultl -colour S 
r*jl 1 1 -colour 3 
Sprite multi-colour 
Sprite multi-colour 
Sprite 0 colour 
Sprite 1 colour 
Sprite 2 colour 
Sprite 3 colour 
Sprite 4 colour 
Sprite 5 colour 
Sprite E colour 
Sprite 7 colour 
C128 ONLY 2HHZ 
B Determines if the C128 operates at 2hhz or llhz. 

If the bit is set then there is no access to the VIC 
chip end the C128 operates m the 2 nnr -ode. 



_ SID CHI» AO0RES5 WrW-«mc f~SH272-BS3a» j 

ADDRESS 



DECItTAL BIT DESCRIPTION 



•D180 51572 

SMI 51273 

10102 51274 

M 51275 

13101 S127B 



•DIBS 51277 
•0106 S127B 



•0107 5127S 

■0108 S1280 

•0109 512B1 

•010* 512B2 



7 
6 

S 
1 
3 
S 
1 

0 

7-4 
3-0 

7-4 

3 0 



3-0 



7-1 

3-0 



Voice 1: Ion byte of frequency 
Voice 1: High byte or frequency 
Voice 1; Lou byte or pulse width 
voice 1: High byte of pulse width 
Voice 1 Control Register 
1 -Random noise 
1— Pulse waveform on 
1 -Sawtooth waveform on 
1-Trlengle waveform on 
l-0ieeble voice 1 

1-Ring modulate voice 1 with voice 3 

l-Synchroni»e voice 1 with rreq or voice 3 

l-Start attack, decay, sustain^ 0-Start release 

Voice 1 Attack/decay 

Attack cycle duration 

Decay cycle duration 

Voice 1 Sustain' re lease 

Sustain cycle duration 

Release cycle durstion 

Voice 2' low byte of frequency 

Voice 2, high byte or rrequency 

Voice 2: low byte or pulse width 

voice 2: high byte of pulse width 

voice 2 Control Register 

1-Rendom noise on 

1-Pulse waveform on 



1-Trlengle waveform on 
i-Disabie oscillator 1 

l-Ring modulate oscillator 2 with oscillator 1 
1-Synchronive oscillator 2 with oscillator 1 frequency 
1-Stert attack. decay, sustain; 0-Start release 
Voice 2 attack/decay 
Attack cycle duration 
Decay cycle duration 



Pitt S42B6 

•DiOF 54287 

•0410 512B8 

10111 542B9 

•D112 54290 



7-1 



3-0 



SD11 3 51291 
■Dili 51292 



•D41S 512S3 
10416 S4294 
•0117 51295 



SOI IB 51236 



•0419 51297 

•Oil A 51298 

•04 IB 51299 

•D11C 51300 



7-4 
3-0 

7-4 
3-0 
2-0 



7-4 
3 
2 
1 



7 
8 
S 
4 

) B 



Voice 2 Sustain/re lease 

Sustain cycle duration 

Release cycle duration 

voice 3: low byte of frequency 

Voice Bi high byte or rrequency 

Voice 3, low byte or pulse width 

Voice 3: high byte or pulse width 

Voice 3 Control Register 

1 -Random noise on 

1-Pulse waveform on 

1 -Sawtooth waverorm on 

1-Trlengle weveform on 

1-Dleable voice 

1-Ring modulate oscillator 3 with oscillator 2 output 

1-Synchronlze oscillator 3 with Freq of oscillator 2 

l-Start attack. decey. sustain: 0-start release 

Voice 3 Attack/decay 

Attack cycle duration 

Decay Cycle duration 

Voice 3 5uatsln/relea9B 

Sustain cycle duration 

Release cycle duration 

Filter cut-off low nybbla 

Filter cut-orr high byte 

Filter Control 

Filter resonance 

1-Extemal input to niter 

1-Voice 3 to niter 

1-Uoice 2 to riltar 

1-Voice 1 to niter 

Filter Volume And node 

1-Turn off voice 3 output 

1-High paa> filter on 

l-Band pass niter on 

l-Low pass niter on 

Output volume 

A/D convenor for peddle 1 

a/d converter For paddle 2 

Produces rendo- nuaber when voice 3 set to noise 
Output OF voice 3 envelope generetor 



The following table gives the HEX values Tor tha various opcodes in their 
individual addressing modes, the following key to be used for the Address Mode 

A - Accumulator 
a - Immediate 
ZP - Zero page 
AB - Absolute 
ABX - Absolute X 
ABV - Absolute V 
ZPX - Zero page X 
ZPV - 2ero page Y 
,X> - Indexed X 
).Y - Indexed Y 



IW1WIC 










ADDRESS I NQ 


noDC 








— — 


A 


• 


ZP 





ABX 


ABV 


iV. 


ZPY 


,X» 


m_iil 


ADC 




63 


65 


60 


70 


79 


75 




61 


71 


AND 




29 


25 


2D 


30 


39 


35 




21 


31 


ASL 


0A 




06 


0E 


IE 




IS 








BIT 






21 


2C 












enp 




CS 


C5 


CO 


DO 


09 


OS 




CI 


01 


CPX 




E0 


E4 


EC 












CPY 




ca 


C4 


CC 














DEC 






C6 


CE 


DO 




06 








EOR 


■ 


19 


15 


ID 


5D 


S3 


55 




11 


51 


INC 






E6 


EE 


F0 




F6 








LOA 




A3 


A5 


AD 


B0 


B3 


BS 




AI 


81 


LDX 




A2 


A6 


AE 




BE 




86 






L0Y 




A0 


A1 


AC 


BC 




Bl 








LSR 


4A 




16 


IE 


5E 




56 








OR* 




09 


05 


0D 


ID 


19 


15 




01 


11 


RDL 


2A 




26 


2E 


3E 




36 








ROR 


6A 




66 


BE 


7E 




76 








SBC 




E9 


E5 


ED 


F0 


FS 


FS 




El 


Fl 


5TA 






85 


B0 


90 


39 


95 




Bl 


91 


5TX 






B6 


8E 








96 






STY 






61 


BC 






94 









_QR0uPEp_ INSTRUCT IONS 







BRANCH INSTRUCTIONS 



SHI 



SVC 
50 



BUS BCC 
70 80 



BE0 
F0 



TR ANSFER INSTRUCTIONS 
TXA TAX TYA 



STACK INSTRUCTIONS 



PHP PLP 
06 28 

JU"P INSTRUCTIONS 



JSR 



FLAG INSTRUCTIONS 



CLC 
IS 



SEC 
36 



PHA 
IB 



RTI 



CLI 



TAY 



PLA 



TSX 
BA 



TXS 
3A 



RIS JflP JhP NOP 

60 4C 6C EA 



INC/DEC INSTRUCTIONS 



DEY 



I NY 
C8 



DEX 
CA 



SEI 
78 



[NX 
EB 



CLU 



CLD 



SED 
FB 



► 



COMMODORE PROGRAMMING 



ASCI! AND SCREEf. COQt.S 







ASCII CODE CHARACTER SCREEN CODE ASCII CODE CHARACTER 



poke207 , 0 ; poke201 . 1 
P0kel99 . l 



SCREEN CODE 



HEX DEC 1 rlAL HEX DEC I HAL SET1 SETS 



400 


a 


S10 


b'l 


I 


0 


I 




SMI 


6S 


A 


■ 


1 .V 


B 


S12 


bb 


B 


b 


103 


3 


S13 


hr 


c 


c 


481 


1 


S11 


hi 


D 


d 


405 


5 


SIS 


69 


E 




j ■ , . 


g 


S16 


70 


F 


r 


i ■ ■ 


f 


SI 7 


71 


c 


a 

M 


■ ra 


a 


SIB 


72 


H 


(1 


' •■- 


a 


S19 


73 


I 


| 


■ 0A 


10 


SHA 


71 


J 


J 


SOB 


11 


SIB 


■?•, 


K 


- 


40C 


12 


SIC 


76 


L 


1 


401! 


13 


SID 


77 


n 


m 


ME 


14 


S1E 


76 


N 


n 


40 F 


15 


S1F 


79 


□ 


o 


S10 


IB 


450 


t?2 


P 


p 


SI J 


17 


SSI 


Ei; 


□ 


q 


S12 


IB 


SS2 


L'J 


R 


c 


S13 


IB 


SS3 


■I- 


S 


S 


Sit 


20 


SSI HI 


I 


t 


SIS 


si 


sss 




u 


u 


sig 


22 


S56 


PR 


u 


v 


S17 


23 


SS7 


87 


H 


kl 


S1Q 


21 


sse 


ee 


X 


X 


SIS 


2S 


S59 


69 


V 




SI A 


26 


SSA 


M 


z 


Z 


SIB 


27 


SSB 


Bl 


c 


C 


SIC 


28 


ssc 


SB 


t 


£ 


S10 


29 


SSD 


93 


3 


3 


S1E 


30 


SSE 


91 






S1F 


31 


S5F 9S 


L.Ar 


L.Ar 


480 


32 


•20 


SPC 


SPC 


SSI 


33 


S21 


33 


i 


i 


422 


3*1 


422 


in 






at j 


35 


S23 


35 


■ 


■ 


■11 


36 


421 


3E 


4 


s 


ijt. 


37 


S2S 


37 


% 


• 4 


»Cu 


JO 


S2G 


31 


& 


1 


»C ' 


~>Q 

JJ 


S27 


JU 


' 


• 






S2B 


10 < 


( 


•2! 


11 


SP1 


> 


} 


S2A 


12 


S2A 


-i' 


■ 


• 


S2B 


13 


S2B 1: 


* 


• 


S2C 


11 


S2C 


11 


I , 




S2D 


IS 


'.z 






•2E 


16 


42 E 


It 


I 




»2F 


47 


S2F 




/ 


/ 


• 30 


IB 


S38 


11 


1 0 


■ 


S31 


19 


931 


IS 


1 


1 


S32 


'_-3 


132 


54 


1 2 


2 


S33 


SI 


S3 3 


s: 


3 


3 


S34 


S2 


431 


Si 


! "i 


1 


•35 


S3 


S3S 


S3 5 




•36 


SI 


S3G Si 6 


6 


S37 


ss 


S37 


S! 


1 7 


7 


436 


S6 


S38 


Sf 


i 6 


" 


S39 




S39 


57 a 


9 


S3A 


SB 


S3A 


61 


1 




S3B 


59 


S3B 


S9 ; 


■ 


S3C 


b3 


S3C 


Bl 


1 < 


< 


4 3D 


Gl 


S3D 


b: 


- 




S3E 


62 


43E 


62 > 


> 


S3F 


63 


S3F 


63 * 


* 



address and the address itself. 



POKE a-J/or PEEK 



pokB58334,peek<S6331>end254 
poke55S34 . peak ( 56331 lor 1 
pokal . peek< 1 >and£52 
pokol .paakl 1 lor3 

pokei3 . lot> i pokell , hi : pokaad . • c lr 
pokeSS. low: pokeSS.m :clr 
pokaS326S . paak ( 53265 )or61 
pokaS326S . peek ( 532SS landlSl 
poka53270 . paak < 53270 )or 16 
pokaS3270 . paak < S3270 )end239 
P okeS3272 > Cp*akC53272)and211>or» 
pokeS3272.Cpeek(S327B>and211>or1 
poke53272 . ( paak ( S3272)and2l 1 >or6 
poke53272.Cpeak<S3272*endl5Jarx 
pokeGiB, ■ 
p0k«646 . • 

poke21 1 , column: poke211. row; * w aSBS72 



HEX DECinAL 


HEX DEC 1 HAL 


-jet : 




410 


61 


S60 96 






411 


65 


S61 97 


A 


A 


4l2 


66 


S62 98 


B 


B 


SI 3 


67 


S63 99 


C 


C 


S11 


68 


S61 100 


D 


□ 


SIS 


65 


S65 101 


E 


E 


SI 6 


70 


•66 102 


F 


F 


SS7 


71 


167 103 


□ 


G 


S18 


72 


SB8 104 


H 


H 


•49 


73 


S63 10S 


I 


I 


SI A 


71 


SSA 106 


J 


J 


SIB 


75 


S&B 107 


K 


K 


SIC 


76 


SBC 108 


L 


t 


SID 


77 


SBC 109 


n 


n 


SiE 


78 


S6E 110 


N 


N 


41 F 


79 


S6F 111 


0 


0 


SS0 


B3 


470 lie 


p 


p 


SSI 


81 


S71 113 


0 


0 


SS2 


82 


S72 1 11 


p 


R 


S53 


■lj 


S73 115 


s 


S 


SSI 


81 


S74 116 


I 


I 


SSS 


BS 


S7S 117 


u 


u 


S56 


86 


S76 118 


u 




IS ' 


87 


177 113 


u 


111 




B8 


S78 120 


X 


X 


S59 


B9 


S73 121 


V 


Y 


ISA 


30 


S7A 122 


2 


z 


IjD 


ji 


S7B 123 


* 




4GC 


92 


S7C 121 








93 


S70 125 


1 


1 




31 


S7E 126 


- 


X 


SCF 


95 


17F 127 




•» 


460 


96 


SA0 160 


SSPi 


: sspc 


S61 


97 


SA1 161 




i 


S62 




4*2 162 


m 


- 


S63 


93 


SA3 163 






S6i 


:ca 


4A1 161 






S6S 


101 


SAS 16S 






SI b 


102 


SAG 166 






«: 


133 


SA7 167 


> 






101 


SAB 1SB 






S69 


105 


SAS 165 


r 




46A 


106 


SAA 170 


1 




S6B 


10' 


SAB 171 


t 


■ 


46C 


108 


SAC 172 




« 


S60 


109 


SAD 173 


L 




SSE 


110 


SAE 171 






S6F 


111 


SAF 17S 






S70 


112 


SB0 176 


f 




S71 


113 


SB1 177 


a 


L 


S72 


114 


SB2 178 


1 




S73 


115 


SB 3 173 






S71 


116 


SBi 18C 


1 


i 


S75 


117 


SB5 181 




1 


S76 


118 


4B6 182 


■ 




S77 


119 


SB7 183 






S7B 


120 


SBB 181 






S79 


121 


SB3 IBS 




■ 


47A 


122 


4BA 186 






S7B 


123 


IBB 187 






S7C 


121 


1BC 186 




■ 


S70 


12S 


SSD 1B9 


J 




S7E 


l ? r 


SBE 130 


• 


■ 


S7F 


127 


1BF 191 







Sultch Ofr interrupt** 

Intarrupt* back an 

Bbbic Ron *■ itched out 

Basic ROn switcned back an 

Raise start of BASIC 

Lower end of BASIC 

Enablaa extended background mode 

Disables extended Backoxound "Ode 

Enables eulticoloi-r mode 

Disables Multicolour *ode 

Activete character sat designated by 'X 

Switch off charecter set Cupper case) 

Smtch off cheracter sat t lower case* 

Relocate video raw to add denoted by *X 

Tell vid controller of new sen page no. 

Change cheracter color to that or 'X 

Piece cursor at designated position 



poke5326S . peekC S326S )end239 

poke53265 . peak ( S32BS ) or 16 

pokeS328S.S9 

poka7B6,S2 

poke788,19 

poke 792. 193 

poke792,71 

pokeB08.234 

poke6S0, 128 

pokeES0,61 

pckaGSO.0 

pokeSSl , x 

pokelSB.B »eitl98. 1 
poke77S. 1 
poke?7S. 167 

poke77i , 131 i poke77S , 161 

pokeB01.O pokeBO2.0 poke618. 165 

poko81B, 131 'pokeBIS, 161 

pokaBlB, 1S7 

pokeBlG. 16S 

poke22.35 

poke22.25 

printpeak(iii) 

print peek(H7> 

prmtpee*(lS0l 

printpeekClS2> 

printpeek(lS3» 

printpeeki 1S1> 

printpeeki 18l> 

printpeek<185) 

print peek< 186> 

s u s61738 

lyiBIIM 

SVS65199 

a ys 1 1 661 

*»S12US 









HEX 


DEC 


:-ial 


HEX 


DEC IfAL 




LOW 


hi:," 




LOW 


HIGH 














400 


0 


a 


S40 


B4 


1G3B4 


S01 


1 


2S6 


Sll 


65 


16640 


S02 


2 


S12 


SI 2 


66 




103 


9 


768 


S13 


67 


17152 


S01 


1 


1024 


S41 


68 


17108 


SOS 


5 


1280 


S45 


69 


17661 


S06 


6 


1536 


116 


70 


17320 


407 


7 


1792 


417 


71 


1B176 


■ee 


8 


201 B 


SIB 


72 


IG'13? 


S09 


9 


2301 


419 


73 


18688 


40O 


10 


2560 


SI A 


74 


1B911 


408 


11 


2B16 


11 B 


75 


13200 


sai: 


12 


3072 


SIC 


76 




40C 


13 


3328 


SID 


77 


19712 


40 E 


14 


3S84 


SIE 


78 


1996B 


S0F 


IS 


3t3 ie 


S1F 


79 


?3P.= 1 


s:o 


16 


iaet. 


SS0 


60 


20103 


Sll 


17 


43S2 


SSI 


81 


r?a T 3>" 


S12 


IB 


460B 


452 


B2 


■ 'JLi-jj 


SI 3 


19 


4B61 


453 


83 


21218 


Sll 


20 


S120 


SSI 


B4 


21501 


SIS 


21 


5376 


SSS 


65 


21760 


116 


22 


S632 


S56 


8G 


22016 


S17 


23 


SfltiS 


S57 


87 




SIB 


24 


6111 


450 


8B 




• 19 


25 


6108 


S59 


B9 


22781 


S1A 


26 


6656 


SSA 


90 


23810 


SIB 


27 


6912 


SSB 


91 


,M,-JL 


SIC 


28 


7168 


SSC 


92 


23552 


SID 


29 


7424 


SSD 


93 


,Vit.3>J 


SIE 


30 


'nB.-l 


S5E 


94 


■ »ei : 


S1F 


31 


793S 


S5F 


9S 


24320 


S20 


32 


aise 


S60 


96 


24576 


S21 


33 


8118 


161 


97 


24B32 


S22 


SI 


B701 


S&2 


98 


25oea 


S23 


3S 




163 


99 


2S344 


S21 


36 


3216 


161 


100 




125 


37 


9472 


S65 


101 


25856 


S26 


SB 


9728 


S&6 


102 


26112 


S27 


39 


•J'JU'! 


S67 


103 


2636B 


S28 


10 


13, IS 


SBB 


101 


26621 


S29 


41 


11- CJb 


S69 


10S 




S2A 


42 


13 >S, 


S&A 


106 


27136 


S2B 


43 




46B 


107 




S2C 


11 


11264 


S6C 


10B 


2761B 


S2D 


15 


11S20 


S6D 


109 


27901 


12 E 


1G 


11776 


16 E 


110 


281 60 


S2F 


17 


12032 


SBF 


111 


PP-lh 


S30 


4B 


uvog 


S70 


112 


SS 


S31 


49 


12511 


S71 


113 




S32 


so 


12608 


S72 


111 


29161 


133 


51 


13056 


S73 


11S 




S34 


S2 


13312 


S71 


116 


^9696 


SSS 


S3 


13568 


S7S 


117 


29952 


436 


54 


13821 


S?6 


1 IB 


3020B 


S37 


55 


;iooa 


S77 


119 


301 61 


SSB 


56 


11336 


S7B 


120 


30728 


SSS 


S7 


115S2 


S79 


121 


• 


SSI 


58 


llBlB 


S7A 


122 


312S2 


SSB 


S9 


l'.U'i 


S7B 


123 


3:iee 


SSC 


60 


15360 


S7C 


124 


31711 


SSD 


61 


15616 


•70 


125 




SSE 


62 


1SB72 


S7E 




'■■■■■■■>> 


S3F 


63 


1G128 


*7F 


127 


32,1^ 



Turn on cursor 
Turn ofr cursor 
Reverse video on 
Reverse video off 

Insert »0de on.'X denotes no or inserts 

S.itch screen ofr 

Switch screen on 

Switch on Hi-rea node 

Disable run 'stop kay 

Re-enable run/stop key 

Disable restore key 

Re-enable restore key 

Disable BREAK and LIST 

All keya repeat 

Disable repeat key Function 

Mormal kay reDSSt condition 

■-signifies delay. of repeetlSTths eec) 

Clear keyboard burr I wait for keypress 

Disable list 

Restore list 

Disable list fait method) 

Disable seve contend 

Disable save comeand (alt method) 

Disable load conmand 

Re-enable load comnand 

Remove line numbers rron basic prg 

Replace Una numbers 

Returns value of ST 

Returns LDAa/uEPIFY flag value 

Cassette motor flag status 

Number or files open 

Actual input device 

Actual output device 

Actual file 

Actual secondary address 

Actual device 

Activate systen re-set 

Close ell open riles 

Re-sets Ti to 0OB0B0 

Gives invisible 'Syntax Error' 

Ends progran without the READY prompt 



HEX 


DECinAL 


HEX 


DECinAL 




LGW 


HIGH 




L'JU 


HIGH 


403 


128 


32766 


1C0 


192 


49152 


sai 


129 


SS021 


SCI 


193 


19109 


SB2 


130 




•C2 


194 


19661 


S83 


131 


33SS6 


ICS 


195 


i sees 


SBI 


132 


33792 


SC4 


196 


jC 1 76 


ses 


133 


3101B 


SCS 


137 


'..:■! j.: 1 


SB6 


134 


M301 


SC6 


198 


bebL"3 


1B7 


13S 


H': **• 


SC7 


199 


'.,3_ >'! 


SBB 


136 


31816 


see 


200 


51200 


SB5 


137 




SC9 


201 


S1 156 


4BA 


1SB 


3S 


SCA 


202 


51712 


*BB 


139 


3SS61 


SCB 


203 


SI 968 


•ec 


140 


:i!,ti'i3 


sec 


201 


=.???^ 


SSD 


141 




•CO 


205 


521B3 


*SE 


142 


36352 


SCE 


£?06 


52736 


S8F 
190 


143 
144 


3f*6ee 
36B61 


SCF 
SO0 


207 
208 


52992 
53216 


191 


14S 


37120 


•Dl 


209 




•92 


14B 


37376 


•02 


210 


53760 


•93 


147 


37632 


•03 


211 


S1016 


•91 


148 


37BB8 


»D4 


212 


51272 




149 


38111 


SOS 


213 


S."F 


•96 


ISO 


ih tea 


SD6 


211 


51784 


S97 


151 


f!!b 


S07 


215 


S5010 


•98 


152 


38912 


S06 


216 




S99 


153 


33168 


SD9 


217 


S5552 


»9A 


154 


39121 


•DA 


216 


- <H aii 


S9B 

S9C 


1S5 
1S6 


S36B0 
-•yjjb 


SDB 

•DC 


219 


5632C 


S9D 


1S7 


10192 


SOD 


221 


S6576 


S9E 


ise 


1014B 


S0E 


222 


-.SHIP 


»9F 


159 


IB 'E 1 


SDF 


223 


^73*-a 


SAO 


160 


18360 


SE0 


224 


57344 


SAI 


161 


11216 


SE1 


225 


57608 


SA? 


16? 


11472 


SE2 


226 


57B5G 


•A3 


163 


4172B 


SES 


227 


56112 


SAI 


1G4 


11981 


SE4 


228 


SO 368 


SAS 


165 


12210 


SES 


229 




SA6 


166 


12196 


•E6 


230 


6B6Eia 


SA7 


167 


12752 


SE7 


231 


■^■j: Jb 


SAB 


168 


iseae 


•E6 


232 


59392 


SAH 


169 


13261 


SE9 


233 


S9G18 


SAA 


170 


13_-?1- 


SEA 


234 


59901 


SAB 


171 


43776 


•FB 


235 


60150 


SAC 


172 


41032 


SEC 


236 


60416 


SAD 


173 


112BB 


SEO 


237 


6C67f 


SAE 


174 


44514 


•EE 


238 


60928 


SAF 


175 




•EF 


239 


61181 


4B0 


176 


1S0S6 


•F0 


240 


61110 


SSI 
SB2 


177 


45312 


SF1 


241 


61696 


178 




SF2 


242 


G1952 


SB 3 


179 




SF3 


213 


bi-'ireo 


1B1 


180 


46000 


SFl 


211 


52464 


SB5 


1B1 


46336 


SF5 


215 


62720 


SB6 


162 


1GS32 


SF6 


216 


62976 


SB7 


183 


1GB4B 


SF7 


247 


63232 




164 


47104 


SF8 


21 B 


C31BB 




18S 


17360 


SF3 


219 


63744 


SBA 


1B6 


47616 


SF A 


250 


61000 


SBB 


187 


47872 


SFB 


251 


612S6 


•BC 


188 


18128 


SFC 


252 


64512 


1BD 


169 


1B361 


SFD 


253 


61 768 


•BE 


190 


48G10 


SFE 


254 


M6P4 


1BF 


191 


■lGOjb 


•FF 


255 









— — 



The following table gives some useful POKES. PEEKS, and other programaing 
T1P5. The table IS not laid out m any specific nenner . These ere juat so-e 
of the bits and pieces that I have picked up over the last t-o years. The list 
meant for BASIC programmers, but obviously. nACKINE CODE users can work out 
the n/C equivalents. 



NOTE - In all 



L0U.K1 



and 



AD - Low byte of an address. High byte Of an 



YOL'K COMMODORE SEKIOI S USERS Gl IDE 
84 



C128 UTILITY 



Foreign Formats 



In theory, the CI28 has the valuable ability to read a 
wide range of CP/M disk formats. In practice, it isn't so 
easy. Your Commgdorc shows you how to do it. 



o 



ne of the most interesting features 
of the C-128's CP/M mode is its ability 
to read a wide number of MFM disk 
formats created on other CP/M systems. 
The feature was only provided so that the 
128 owner would have ready access to the 
full range of CP/M applications without 
having to rely on companies to copy 
programs on to the non-standard Commo- 
ore format diskette. By contrast owners 
of, for example. Amstrad machines arc 
in the main limited to a selection of the 
most popular CP/M packages. 

While this in itself is a major benefit, 
provision of the facility also provides 
some less well-publicised advantages. Of 
course it means that you can now create 
your own programs and datafiles tor use 
on other CP/M machines. What, however 
will be of interest to a greater number of 
128 owners is that the disk drives work 
faster with MFM disks than with the 
standard GCR format. The main reason 
for this is almost certainly, because the 
physical track/sector layout of Comodorc 
disks does not fit very well with CP/Ms 
internal logical representation of a disk. 
Additionally, the new disk ROM routines 
tor handling MFM disks are the only tide 
sections within the disk ROMs. 

Horror movie 



At the point it would be very easy to 
digress into a discussion of CP/M 
internals and the horror movie lurking 
within your disk drive. For readers 
interested in these topics I have suggested 
books on both topics at the end of this 



article and wt* will just consider the more 
immediate problem of creating an MFM 
format disk. 

Further investigations have revealed 
that while Commodore originally 
intended at one time to provide an MFM 
formatting facility from within CP/M. it 
is now extremely difficult to do so. 
Fortunately, however, it is relatively 
simple to do this using BASIC 7.0. 

In order to implement CP/M, the 
new disk drives support a set of 
instructions called Burst Commands. 
These account for the slight improvement 
in disk performance that is always 
obtained in CP/M mode by using faster 
data transfers. The main functions in this 
group are for fast read and write of 128 
byte CP/M logical records and a special 
fast program LOAD command. Also 
included within the set is a general 
purpose MFM formating command. The 
information on this is tbund on page 84 
Of the 1571 Disk Drive Users Guide. It 
isn't too hard to use Burst Commands — 
I successfully formatted a disk to 
KAY PRO II format at the second attempt. 

Straightforward 



F.verything seemed quite straightforward, 
so I was somewhat surprised when every 
other format I attempted to create was 
greeted by CP/M with the response 
MISSING. This is shorthand for: "I have 
searched through my internal tables, oh 
master, and cannot find an entry that mat- 
ches this tbrmaf Clearly another gem 
from (he Commodore School of Techni- 



cal Authorship. The disk manual seems 
to be accurate, but gives no details on the 
actual formats supported. They are given 
in the CP/M sections of the main manual, 
but this does not tell you how the sectors 
arc numbered, which you need to 
identify. 

There is one place where you can 
find this information and you will only 
have it if you have bought the CP/M utili- 
ties and documentation pack. This pack- 
age also contains a disk of CP/M sources 
and at the end of the BIOS file CXDISK. 
ASM you will find Disk Parameter Block 
(DPB) Table. The DPB Table holds preset 
information for a range of different file 
formats, but is modifiable by the user. 

After the DPB entries for the Com- 
modore formats and the MFM formats 
there arc a number of blank entries and 
two unimplemented ones used on Morrow 
machines. This means it is possible to 
insert new entries without having to 
discard any of the existing ones. The 
easiest way to modify this file is to use 
a word-processor, otherwise you will have 
to struggle with the infamous ED editor. 

The DPB table is unique to Com- 
modore, a most CP/M machines have 
only a single DPB. This is required by the 
operating system in order to convert from 
the logical structure of the disk used in 
the BDOS section and the physical struc- 
ture of tracks and sectors on the disk. 
Logically. CP/M considers a disk to 55 
contain a number of 128 byte records. ^! 
which are organised into blocks of *tj 
between Ik and 16k bytes in length. For g 
the C128 the block size is Ik for single- 
sided disks and 2k for double-sided disks. >: 
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MFM Formatting Parameters Table 



No. 


Formal 


Sides 


Set size 


Sct/Trk 


1st Set 








<B5) 


<B7) 


(B3) 


1 


Epson QXIO 


2 


I 


16 


129 


2 


Epson QX 


2 


2 


10 


129 


3 


IBM-8 SS 


1 


2 


8 


129 


4 


IBM-8 DS 


2 


2 


8 


129 


5 


KAYPRO IV 


2 


2 


10 


128 


6 


KAYPRO II 


1 


2 


10 


128 


7 


Osborne DD 


2 


3 


5 


129 


8 


Osborne SD 


1 


3 


5 


129 


9 


Epson Euro 


2 


1 


16 


129 



Formats 10-16 are available for user definition. 



This is an important parameter as it 
defines the minimum size of a CP/M disk 
file, regardless of how little data it may 
contain. 

The parameters in the DPB are used 
to calculate the numbers of the sectors on 
a particular track that correspond (o a 
logical block. For tbrmatting purposes the 
only parameters of interest are the sector 
size, the number of sectors per track and 
the number allocated to the first sector on 
a track. The other parameters concern the 
order in which the disk drive writes 
sectors on the disk. These parameters can 
be specified in the format command, but 
they should not be required. 

The demonstration program show in 
Listing 1 will create two of the most 
useful formats. The KAYPRO II formal 
packs more data than normal on a disk 
and the IBM-8 formats are very widely 
used. Using the table of parameters tor 
other formats provided in Table 1. il 
would of course be possible to extend the 
program to allow the creation of all the 
supported formats. However, unless you 
arc planning to provide a CP/M disk 
copying service, it is probably better to 
limit the formats you are using. 

Further reading 

As mentioned earlier, here are a couple 
of book recommendations for readers 
who would like to pursue these subjects 
further. A very good introduction to this 
subject is provided by CP/M The 
Software Bus. This is a programmer's 
companion written by Andrew Clarke. 
Mike Eaton and David Powys-Lybbc and 
published by Sigma Technical Press. This 
book scores high on readability and 
follows a sensible progression from the 
very basics through editors, assemblers 
and compilers to the operating system 
internals. 

I have only two reservations in 
recommending this to C-128 users. The 
first is that the book concentrates on 
CP/M rather than CP/M Plus which is 
used on the 128. While the differences are 
fully covered but not in great detail. 
Secondly in my copy at least (several 
years old) the chapter on CP/M pro- 
gramming languages badly needs up- 
dating and does not even mention some 
of the best compilers available. In all 
other respects this book should suit all but 



PROGRAM : MFfl FORMATTER 



10 REM 1S70 MFM DISK FORMATTER - 

BY PAUL SCHQFIELD 
20 SCNCLR: CHAR 1,30,3. "MFM DISK 
FORMATTER" 

30 CHAR 1,30,4,"™ ----- 

40 CHAR 1,10,7, "1. KAYPRO II" 
50 CHAR 1,10,3. "5. I BM-0 SS" 
SO CHAR l.lO.ll.-PLEASE ENTER RE 
QUIRED FORMAT : 

70 CHAR 1,41,11,"": INPUT F:IF F> 
a OR F<1 THEN GO 

BO CHAR 1,10,14, "INSERT DISK AND 
ENTER DEUICE NUMBER C8-1I) : 

SO CHAR 1.56,14,"":INPUTD:IFD<B 
OR D> 11 THEN 80 

100 IF F-l THEN B5-S: B7-10: B3-15 
6 

110 IF F-E THEN B5-E : B7-B : B3- 153 
iaO CS-"U0"*CHRICB)*CHRSCB3)*CHR 
SCO) *CHRSC B5 ) +CHRS C 39 ) *CHRS( B7 ) 

130 CHAR 1,10.16. "":0PEN 1,0,15, 
CSrPRINTWl , "U0"*CHRSC4 ) : GET#1 , AS 

:CL0SE1 

140 SB-A5CC ASJ-4B : IF DS> 1 OR 5B< 
>0 THEN PRINT "FORMAT ERROR - 
DSS;" STATUS - ";SB;:END 

ISO PRINT "ANOTHER DISK CY/N) : 

160 INPUT YS:IF YS-"Y" OR Y$-"C3 
Y3" THEN CHAR 1,10,16," 

" i GOTO 130: EL 

SE SCNCLR 

170 REM FOR 1571 DOUBLE SIDED FO 
RMATS CHANGE CHRSC6) TO CHRSC38) 
IN LINE 110 



the most dedicated hackers and is quite 
reasonably priced. 

By contrast the 1570/71 disk drives 
are still too new to have had many books 
written about them yet. 1 know of only 
3. which are in fact editions of the same 
book in German. American and English. 
The English version is entitled The 
Anatomy of the 1571 Disk Drive and is 
published by First Publishing. If this book 
had appeared a little later (the German 
original has been available almost as long 
as the drives) it would probably have been 
excellent. As it is it is simply very good. 
The main weakness is that in places they 
have had to anticipate what information 
users would require and so have not 
included everything that Commodore 
forgot. All the disk housekeeping com- 
mands, file types, and special user 
commands are fully covered, although the 
inexperienced programmer would prob- 
ably have appreciated more example 
programs. 

This is not. however, a book aimed 
at the novice and over half of it is ROM 
listings. In this ease the authors have done 
a really first class job of adding comments 
to these and they are genuinely useful. 
Despite this it is still difficult to follow 
some commands from reception to com- 
pletion, which is hardly the fault of the 
authors, but is inherent in the byzantine 
structure of the ROMs. There is great 
potential for getting these C128 disk 
drives to perform belter than intended and 
this is the type of book you need if you 
want to try. 
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Print Master 



Having problems designing sprites, characters and 
screens? Use (his program to print grids to help you. 



Jf you are designing a game, a business 
program or a utility you will no doubt at 
some time be required to design a screen, 
sprites and even user defined characters. 
Print Master will help you with your 
designs by printing out on an MPS 801 
or compatible printer a range of four 
grids. The grids are as follows: 

1) A Character Designer Grid ( row of 
three); 

2) Sprite Designer Grid: 



3) Small Screen Grid and 

4) Ijrge Screen Matrix. 

Getting it in 

The program is presented as a Basic- 
listing. You should use the SYNTAX 
CHECKER program found on the 
LISTINGS page of this magazine to 
check each of your lines as you enter the 



program. Read the LISTINGSpnge for 
more information on how to do this. 

When RUN the program will prompt 
you for the type of grid that you require 
and the number of copies of the GRID 
that you require. 

After you have been using the grids 
for a while they will no doubt become an 
invaluble aid to your programming. Why 
not photocopy a number of grids to save 
wear on your printer ribbon. 



PROGRAM: PRINTMASTER 



97 50 MS-CHRSU47) :NS-CHR$U9) 
07 55 0S-"[D0WNI5|":PS-"(R1GHTI 

or 

D6 60 AAS-CHRSI15) :ZZJ-CHRS(8) 
A3 100 PRINntt;"[C7J":POKE532eO 
.11 :POKE53281 .0:POKE650. 128; 

49 130 PR I NTTAB ( 13) " [CA. S' 12 . CS 
1" 

C4 135 PRI NTTAB (13) " IS- . RVS0N ) 
ISPJRINT [SMJENU [RVSOFF.S-I 

F5 140 PR I NTTAB (13) " f CZ . S" 12. CX 
J " 

2C 145 PR I NTCHRt ( 14 ) NS ; LEFTS ( 0$ 

.5) ;LEFT$(P$.2) : 
16 150 PRINT"[C6)1) [SC1HARACTE 

R [SMIATRIX" 
62 155 PRINT"lDOWN,RIGHT2)2) (S 

SIPRITE (SMIATRIX" 
42 160 PRINT"[DOWN.RIGHT2)3) [S 

S| MALL (SS1CREEN [SMIATRIX" 
58 165 PRINT" IDOWN.RIGHT2J4) [S 

DARGE [SSICREEN [SMJATRIX" 
8B 167 PRI NT" [DOWN. R1GHT2] 5) |S 
E1XIT" 

8A 170 PR I NTNl ; LEFTS ( O J , 1 5 ) ; LEF 

TS(PS.5) ; 
53 175 INPcn-(SW)HICH";W 
65 180 IFW-5THENPRINTM$CHRS(142 
) :END 

75 185 IFW<10RW>4THEN50 
F3 190 FORT-lTO50Q:NEXT 
2A 195 ONWGOSUB1000. 2000. 3000.4 



000 

46 200 GOT050 

27 997 REM*"«****»"-**«"-«***« 

15 998 REM CHARACTER MATRIX DES 
IGNER • 

65 999 REM" ***•***»■» ***#*••##* 

46 1000 PR I NTMS: LEFTS (OS. 5) LEFT 
S(P$.3) : 

18 1010 PRINT"[ST|HIS ROUTINE W 

ILL PRINT OUT COPIES" 
FE 1015 PRINT" [RIGHT310F A CHAR 

ACTER MATRIX IN ROWS OF 3" 
4B 1030 PRINT"[DOWN2.RIGHT3.SYJ 

OU SELECT HOW MANY ROWS TO P 

RINT" 

BD 1035 PRINT" [RIGHT3IBUT WHATE 
VER YOU CHOOSE WILL BE" 

63 1040 PRINT" [RIGHT3 1 MULTI PLIE 
D BY 3" 

66 1050 PRINT"[D0WN2. RIGHTS]"; : 
INPUT" [SNJUMBER OF ROWS";NR 

8C 1055 IFNRT 1THEN1000 

66 1060 PRINT"[DOWN2.RIGHT3.ST) 
HIS WILL GIVE YOU"NR"3"HATRI 
XES" 

40 1070 PRINT" 1DOWN2.R1GHT3) "j j 
INPUT" [SDIO YOU WISH TO CHAN 
GE THIS Y | LEFT3 I ":YS 
57 1080 IFYS-' , Y"ORYS< >"Y"ANDYS< 

>"N"THEN1000 
9D 1150 FORC-1TONR 
9F 1160 0PEN4.4 

68 1169 REM"- (SHIFT + O SHIFT + 
P)"8 

C9 1170 AS-"(SO.SP,SO,SP.SO.SP. 
SO.SP.SO.SP.SO.SP.SO.SP.SO.S 
P] " 



AD 1171 : 

49 1174 REM-' (SHIFT ♦ L SHIFT ♦ 

6) "8 (LOGO + 0) "4 
03 1175 BS-" ISL.Sfl.SL.Se.SL.se. 

SL.se. sL.se. sL.se.sL.se.sL.s 
ei ice4i" 

E4 1180 CS-"HSPC23| " 

FD 1185 DS-"2 6 3 1ISPC17I" 

7E 1190 E$-"8 4 2 6 8 4 2 1 DA 

TA1SPC31 " 
F0 1200 PRINT#4.AAS 
66 1205 PRINT#4.CSC$CS 
2E 1210 PRINT#4.DSD$D$ 
5E 1215 PRINT»4.E$E$ES 
34 1220 FORL-1T08 

E2 1225 PRINT#4.AA$AS"[SPC8)"AS 

"lSPC8t"A$ZZS 
FC 1230 PRINT*4,AA$B$" [SPC3J "BS 

"[SPCSP'BSZZS 
Al 1235 NEXTL 

FD 1240 PRINT#4.AAS:CL0SE4;NEXT 

C: RETURN 
31 1997 REM" ,B »»*»*"»«*"-***" 

49 1998 REM SPRITE MATRIX DESIG 
NER 

73 1999 REM""«*«'**»**-*«*"«-*« 

55 2000 PR I NTMS : LEFTS ( OS . 5 ) LEFT 
$<PS.2) ;"[ST]HIS ROUTINE WIL 
L PRINT OUT A COPY OR" 

EF 2005 PRINT" [RIGHT2JCOPIES OF 
A SPRITE MATRIX DESIGNER" 

AB 2010 PRINTNS ; LEFTS (OS . 15 ) LEF 
TS(PS.2) ; 

3C 2015 INPUT" ISHIOW MANY COPIE 
S ";NR 

C7 2020 IFNR-OTHEN2OO0 

B2 2030 FORC-1TONR 
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19 


2050 OPEN4 .4 


3A 


3005 PRINT" (RIGHT2ICOPIES OF 


95 


3130 CLOSE4 : NEXTC : RETURN 


FC 


2060 CS-"1 ISPC14I " 




A SMALL SCREEN MAT I X" 


C9 




EA 


2070 DS-"2 6 3 1ISPC8I" 


7F 


3010 PR1NTNS:LEFTS(0$.15>LEF 






44 


2080 ES-"8 4 2 6 8 4 2 1" 




T$(PS,2) ; 


B6 


399B REM LARGE SCREEN MATRIX 


94 


2089 REM" (SHIFT * 0 SHIFT + 


A8 


3015 INPUT" (SHIOW MANY COPIE 






P)*8 




S " ; NR 


0B 




E5 


2090 AS-" [SO. 5P . SO . SP . SO. SP . 


C2 


3020 IFNR-OTHEN3000 






SO.SP.SO.SP.SO.SP.SO.SP.SO.S 


66 


3030 FORC-1TONH 


8D 


4000 PR I NTMS ; LEFTS (OS . 5) LEFT 




PI" 


E6 


3050 OPEN4.4 




S (PS. 2) ; '" [ST1HIS ROUTINE WIL 


-IF 


2099 REM-* (SHIFT * L SHIFT + 


2A 


3069 REM' • ( LOGO ♦ A)'l (LOGO 




L PRINT OUT A COPY OR" 


e» "8 

2100 BS-" ISL.S@.SL.S@, SL.S0. 




+ R)"21 


DC 


4005 PRINT" (RIGHT2KOPIES OF 


20 


CO 


3070 AS-'|CA.CR211" 


73 


A LARGE SCREEN MATIX" 


SL Sfc SL S6 SL SB SL SP SL S 


30 


3071 : 


4010 PRINTNS : LEFTS (OS . 15) LEF 




§1 " 

2110 Gs-"ice4i ice4i ice4i" 


6A 


3074 REM' ' ( LOGO + R) • 18 (LOG 




T$(PS.2) | 


7B 




O + S) * 1 


F4 


4015 INPUT" ISHJOW MANY COP IE 


3B 


2120 PRINTt4.C$" "Ct" "C$ 


A9 


3075 BS-" |CR18,CS1" 




S " ;NR 


86 


2130 PR1NT*4.D$" ISSPC1 "Df " " 


2A 


3076 : 


69 


4020 IFNR-0THEN40Q0 


DS 


B9 


3079 REM" (LOGO + Q) " 1 (SHIF 


4A 


4030 FORC-1TONR 


CF 


2140 PR1NT#4.E$" ISSPC) "ES" [S 




T AND +)'21 


D2 


4050 OPEN4.4 




SPCI'-ES" DATA" 


39 


3080 CS-"ICQ.S*2U" 


CB 


4069 REM" (SHIFT * 0 SHIFT + 


61 


2130 F0RL-1T021 


2F 


3061 : 




PI ■ 8 


09 


2160 PRINT«4, AASASASASZZS 


B8 


3084 REM" ■ (SHIFT AND +)'18 ( 


2E 


4070 AS-" [SO.SP.SO.SP.SO.SP, 


BB 


2170 PRINT*4.AASBSBSBl" "GSZ 




LOGO + W)"l 




50 . SP , SO . SP . SO . SP , SO . SP . so . s 




ZS 


1C 


3085 Ds-"[sne.cwr 




PI" 


IB 


2180 NEXTL:PRINT#4.AAS:CLOSE 


20 


3086 l 


60 


4079 REM" (SHIFT * L SHIFT + 




4 : NEXTC 


DD 


3089 REM* ' 1 LOGO + Z)'l (LOGO 




'8 


1 8 


2190 RETURN 




£ } * 2 1 


67 


4080 b$-" isL.se.sL.se.SL.se. 


94 


2300 STOP 


Dl 


3090 ES-"ICZ.CE21J" 




sL.se.sL.se.sL.se.SL.se.sL.s 

61" 


25 




25 


3091 : 




DO 


3094 REM*'lLOGO + E)*18 (LOG 


50 


4090 F0RL-1T025 


64 


2998 REM SMALL SCREEN MATRIX 




0 ♦ X)'l 


ID 


4100 PRINT»4.AASA$ASASASASZZ 




■ 


42 


3095 FS-"ICE1B.CX1" 


74 


$ 


67 




IE 


3096 : 


4110 PRINT#4.AA$B$B$B$BSBSZZ 






DC 


3100 PRINT#4. AA$AS:BSZZ$ 


C3 


s 

4120 NEXTL i PRINT#4 , AAS : PRINT 


61 


3000 PR I NTMS ; LEFTS ( OS . 5 ) LEFT 


FE 


3110 FORL-lT024:PRINT»4.AA$C 


$<PS.2> ;"(ST]HIS ROUTINE WIL 




S;DSZZ$:NEXTL 




#4 : PR I NT*4 : CLOSE 4 t NEXTC : RETU 
RN 




L PRINT OUT A COPY OR" 


C8 


3120 PRINT»4.AA$E$;FIZZ$ 





Continued from page 42 



70 First line of program when recalled 
later. 

On cassette the files would have to be in 
the order: 

I: PROG 1 

2: SWAPPER 64 (machine code not Basic- 
loader. ) 
3: PROG2 

On disk the order does not matter. 

When the store part instruction is used, 
the bottom of Basic is raised to the 
address of the beginning line number. 
This will cause no problems if used in 
program mode, but in direct mode it may 
be noticed. In such cases it is advisable 
to SAVE the program, reset the computer, 
and re-LOAD the program.This proced- 
ure is not required if the beginning line 
number was the first line of the program. 
It is advised that you only use this 
command in program mode. 



Extremely fast 

Here is a short Basic program which w ill 
demonstrate the speed of SWAPPER 
6-/ Type: 

NEW 

10 PRINT 'HELIX)" 
20 SYS 49152.4.1 
SYS 49152,2 
RUN 



The program scrolls 'HELLO' up the 
screen. What is happening is that line 10 
is executed thus printing 'HELLO". Then 
the program is swapped lor that in storage 
which auto-RUNs. Since this is the same 
program, the above process is repeated. 

Getting it all in 

The program is presented here in the form 
of a Basic loader. Type the program in 
using the SYNTAX CHECKER program 
that can be found on the LISTINGS page. 



SAVE the program before you RUN it. 
On RUNning you will be informed of any 
errors that you may have missed. When 
the program hits been RUN successfully, 
type: 

POKE43.0:POKE44.I92:POKE45.35: 
POKE46.I95 

SAVE "SWAPPER".! (or ,8 for disk). 
This SAVEs a working copy of the 
machine code. 

When the program is to be used, simply 
type the following command: 

LOAD -SWAPPER".!. I for tape or. 
LOAD "SWAPPER",8,I for disk. 

If loaded directly (ie. as above) rather 
than from within a program then you 
must type NEW or CLR to reset the 
pointers after LOADing SWAPPER. 

For those interested the machine code for 
SWAPPER is located between memory 
locations 49152 (SC000) and 49991 
($C347). 
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C64 UTILITY 



Are you keen to keep prying eyes off your beautiful 
Basic coding? This utility will help you to keep a few 

secrets. 



ere is a program to make it very 
difficult for prying eyes to look at your 
Basic programs without your permission. 
PROG -LOCK is a 'skeleton' program 
which sits below your own program, so 
that when the program is loaded and 
listed, the result will he the message "10 
SYS2076' which is tar from informative. 

To see the Basic program, you must 
RUN the program, which will then ask 
you for a password, which if entered 
correctly will allow you to run or list the 
Basic program. II you don't give the 
correct password, the machine resets 
itself! 

Getting Going 

Type in the program and SAVE it as 
LOCK LOAD before RUNmng it. If all 
the data is correct. PROG -LOCK is 
SAVEd to tape or disk, as you require. 

Now to keep out the nosey-parkers. 

Turn the computer on and off. then 
LOAD PROG -LOCK back in. Type: 

POKE43.124 

followed by RETURN. 

Now LOAD in the BASIC program 
you want to protect, and type: 



POKE43.1 

followed by RETURN. 

The default password is set as 
ELEPHANT, but you change it by typing: 

SYS2IS0 

followed by RETURN, and you can then 



characters (counting RETURN at the end 
as one character). 

Thai's it! The program is now 
protected, and just needs to be SAVEd. 

Note that ' PROG-LOCK doesn't 
copy -protect your program, and would 
he rapidly defeated by an experienced 
hacker, but it will make the casual 
program thief think twice, not to mention 
type is a new password of up to 20 the cachet It will gfve to your programs! 



PROGRAM : PROG LOCK 



8B 10 X-16385 :T-0:N-0 

39 20 READA: IFA— 1THEN40 

88 30 POKEX.A:T-T+A:N-N+l:X-X+l 

: GOTO 20 

ED 40 IFTO10932THENPR1NT-DATA 

VALUE ERROR" : END 
OF 50 IFN<>125THENPR1NT"DATA AM 

OUNT ERROR" : END 
52 60 PRINT"(T)APE OF (D)ISK ?" 

C7 70 GETD$: IFD$< >"T"ANDDS< >"D" 
THEN70 

39 80 POKE251.1:IFDS-"D"THENPOK 
E251 ,8 

5C 90 POKE43.1:POKE44.64:POKE45 
, 127;POKE46 .64:SAVE"PROG-LOC 
K",PEEK(251) 

ID 1000 DATA 11,8.10,0.158.50.4 
8.55.54.0 



FB 1010 DATA 0.0.147.8.14.32,20 

8,65.83.83 
A6 1020 DATA 87.79.82.68.32.63. 

0.169,13.160 
12 1030 DATA 8,32,30.171.160,0. 

32.207.255.153 
3F 1040 DATA 64.3,200.201.13.20 

8.245.169.0,153 
A7 1050 DATA 64.3.160.0.185.64. 

3,240.12.217 
A6 1060 DATA 81.8.240.3.76.226. 

252.200.76.55 
90 1070 DATA 8.169.124.133.43.1 

69,8. 133.44.96 
81 1080 DATA 69.76.69.80.72.65. 

78,84. 13.0 
3D 1090 DATA 153,34.72.69.76.76 

.79.34.0.108 
BE 1100 DATA 0.169.13.160.8.32. 

30.171,160.0 
72 1110 DATA 32.207.255.153.81. 

8.200.201.13.208 
95 1120 DATA 245.96,0.0,0.-1 



•5 



3. 
ft 
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KKADKRS SERVICES 



Want to 
use the 

programmes 

in this 
publication? 



I yping in long programs can be a pretty daunting task. Once 
you've eniered the program there will no doubt be typing errors 
that need to be corrected. Why not save yourself time and trouble 
by buying a disk or cassette of the programme from this 
publication. All of the programmes that are presented here are 
on the cassette or disk at a bargain price of £6.00 for disk or 
£4.00 for cassette. 

The disk and cassette are only available mail order from 
the address on the order form. A cheque payable to ASP Ltd 
for the correct amount should be included with the order. 
Overseas customers should add £1.00 for postage. 



Can't afford 
the time to 
type them in? 

Why not buy 
them all 
on disk 
or cassette? 



ORDER FORM - PLEASE COMPLETE IN BLOCK CAPITALS 



NAME 


OUANTITY 


PRICE 


ORDERCODF 


TOTAL 


SERIOUS USER 
DISK 




£6.00 


YSUGD 




SERIOUS USER 
TAPE 




£4.00 


YSUGC 




OVERSEAS POSTAGE 




£1.00 








TOTAL 





NAME 



ADDRESS 



POSTCODE 



I enclose a cheque/postal order for £. made payable 

to ASP LTD. for the Your Commodore Serious User Guide 
Disk/Tape. 



All orders should be sent to: Your Commodore, Readers 
Services, Argus Specialist Publications, 9 Hall Road, Hemel 
Hempstead. Herts HP2 7BH. 



Please allow 28 days for delivery. 
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AT LAST! 

AN ECONOMICAL ALTERNATIVE TO THE BULKY EXTERNAL AMIGA 

DISK DRIVES 



3.5' EXTERNAL FLOPPY DISK DRIVE FOR THE COMMODORE AMIGA 




CUM ANA CAX 354 

Amiofl owners can now easily upqrade to twin floppy operation w*lh the purchase ot Cumana's htgh quality external 3 5 inch (loppy drive 
The Cumana CAX 354 conveniently lakes ds powei from iho hOBt computer and offers a full 880K of formatted storage to either A500 owners or users of 

system l and 3 A1000 series - 

• High anally NEC 3 5 inch double sided drive mechanism • Owr?i operation 

• 1Mb Unlormalted siorage capacity • lower, power consumption 

• Hiph Reliability • Connector enables easy additron of 5 ?5" drives 

• fast Access 

SPECIFICATIONS 

Seek nme (track to trackl 3ms • Setting time 15ms • Rotational Speed 3O0 RPM • Data Tiansler Rate 1 25 '250 Kb per sec • Number o» tracks 80 • 

Number of sides ? 



FED UP WITH PAYING HIGH PRICES 
FOR YOUR 5-25' FLOPPY DISKS??? 
JUST LOOK AT OUR PRICES!!!! 

DS/DD 5.25" DISKS 
AT THE SILLY 
PRICE OF JUST £6.00 PER TEN 
SAVE EVEN MORE MONEY 
BUY TWO PACKS AND SAVE 

ANOTHER £2.00 

TWO PACKS OF TEN 5.25 DISKS 
JUST £10.00 

Complete with labels and write protect labs 
Piicm* include VAI and UK P*P 

No fancy 0O««4 lo ihfow away You qct l he h>gntt*i quality 
disk at Itie lowest ol puces 



COMMODORE CABLES 

CPC 1 CENTRONICS PRINTER CABLE 

Commodore C64/128 user port to Centronics printer cable The cable is 
fitted with a line 'eed switch tot the Epson range ol printers Works with all 
well known Centronics printers ONLY £15.00 mcl 

CPC 2 SERIAL EXTENSION CABLES 

E*tend your commodore printer or disk drive cable by up to 2 metres 

1 Mene extension cable £5.00 mcl 

2 Metre extension cable 67 .00 bid 

CPC 3 128D KEYBOARD EXTENSION 

Do you find yourself restricted by ineshorl keyboard cable on the C128D 
Solve yout problem with our 1 mette extension cable 

We have mounted our C12B under the desk to save room. 
SPECIAL OFFER PRICE ONLY £15.00 Incl 



LOCKABLE DISK BOXES 

DBS/90 

3 5" disk box holds 90 disks hrsi class value at only £12.50 or only £11.50 

wnen you buy 10 oi mote 3 S" disks 

DBS/70 

5 25 'disk Do« hold 70 disks great value only £9.50 or only £0.50 when you 

buy 20 or more 5.25" disks 

DBS/100 

5 25" disk box holds 100 disks bargain at only £11.50 or only £10.50 when 
you but 20 or more 5 25" disks 



DISK NIBBLER 




Use both sides of yout disks Save the cost of trie Nibbior with just one box 


oldtsks even at our prices Only 


£5.00 nr FREE il you buy 50 or more 5 25" 


disks 




SPECIAL OFFER 




50 5 25" disks 


£25.00 


1 DB5 100 disk box 


£10.50 


Disk Nibbier 


F.O.C. 


OUR NORMAL PRICE 


£46.50 


OFFER PRICE 


£35.00 


SAVE 


£11 50 


Pnces include VAT ana UK postage 






AT LAST!!!! 
3.5 DISKS AT 
SENSIBLE PRICES 

Double sided, double density 3 5" verbatim 
disks 

ONLY £16.00 (or pack ol ten disks 
SAVE EVEN MORE MONEY!!!! 
BUY TWO PACKS FOR ONLY £30.00 

These j'c not cheap di(k> Out OoV quiinly disMt al low p'ices 

NASHA DS/DD 3.5 DISKS 
BOXED. WITH LABEL 

OUR LOW PRICE £23.00 per box ten. 
SAVE EVEN MORE MONEY!!! 

BUY TWO BOXES FOR ONLY £44.00 

We Ddieve on' orices are the loweal you aiII 'ind 
All pnces include VAT and UK postage 



H&P COMPUTERS UK, 

9 HORNBEAM WALK, WITHAM, ESSEX CM82SZ. Tel: (0376) 511471 



NEW! 



NEW! NEW! NEW 

NEW! 

COMMODORE C64. C128 RS232 INTERFACE 

AT LAST" PS232 interlace that win not cos! vou the earth 
The H&P Computers Commodore RS232 interface is a <u" industrial 
standard RS232 Interlace with all handshakemg lines that plugs »nto the 
user port 

Will M a" modems and printers with a 25 why D connector 

Up lid now you would have had to pay between £35.00 and £50.00 'or a 

PS232 Interface lor the C64/C128 

The H&P Computers P.S23? 'S only £25.00 incl and we even give you an 
»modem comms program on disk free ot charge. 

ONCE AGAIN WE BRING THE BEST FOR LESS 
ONLY £25.00 INCL. 



JUTRL 8RCK-LP POUER CBfl SH/1E8 

PERmmi5.THEFiriRLFROrimR..OURIll55IOI1.JD80LDUJ 
00 UHERE HO OTHER UTSJJ3E5 HWE GOflE 8EF0RE 

ERPTRIHS LOO... THE TOTRL SOLUTION TO RLL HOUR BREIHJP HEEDS... THE ULTiriRTE BREK-UPCRRTRIDGE HERE flO'J I! 



REPORT OH RnOMGS 

Actor Replay Mk II I is more powerful, more tnendiv and w* bach 
up more programs man any competog utility by taking a Snapshot 
of the program m memory so it doesn't matter how it was loaded... 
from disk or tape at normal or turbo speeds. „ the results are (he 
same - Perfectl! Amazing! 1 ) 

STRR8RSE UPORTE 

• Simple to use: just press the button and make a complete 
backup Tape to Tape. Tape to Disk. [>sk to Disk. Disk to Tape 

- THE PROCESS IS AUTOMATIC - JUST GIVE THE BACKUP 
A NAME 

• All backuos will reload al turbo soeed Ttdeoendentiv of the 



• Freeze the action then view the program with the monitor 
(eature Add pokes lor infinite lives etc Then restart the game 
or backup - ideal for customised versions of you' games 

• Picture Save Save any mufli-coiour Hires screen to disk or 
tape Compatible with Blazing Paddies. Koala. Skdeshow etc 

• Fully compatible with 1541. 1541C, 1570, 1571. and ehancer 
or any CBM compabble data recorder. 

• For C64. MC. 128. 1280 (in 64 mode). 

• Unique Spnte Monitor. Freeze the Action and view al the 
Spntes. walch the animations scroll across the screed. Save 
Sprites to disk or tape. Customise your games by loading spntes 

ft<vn wnjirmln annlhaf — IttanrMtart Iha mfwiiam™ mika 



• CompatOle with fast DOS and Turbo ROM systems. 

• Backup process in turbo speed - faster than any rivals. 

• Special compacting techniques. Each program is saved as a 
single hie 

• Transfers multistage tape programs to desk - more than any 
other cartndge - even the extra stages are turbo load - a umcme 
feature. 

• Sprite Killer' make yourself indestructible by disabling Spnte 
collisions in games 

• Fast disk format (20 sees). 

• BuJMrt unstoppable reset button ^^^^ . 



1 Dual speed tape turbo system Programs can load up to 3 times 
taster than commercial turbos - mat s over 10 times normal 
Commodore speed 




BREAKS THROUGH 
THE 10 SECONp BARRIER! 

AcUon Replay ill no* comes win an amamg n*w '- ■ 
Da* BooKwfcr in*! wA WaO your Backup* al TWENTY FIVE * • 
TIMES normal speed The tastes) Ask tmOo yel devised" Them are NO 
CA1CHES WARPK works with AIL your garret Works with any de*,drwe No- 
preload required - No rwrTwar* moo)hcal«ns necessary - No user knowledge required - 
D-i^ana Odd INDEPENDENTS lOADmG tiME - 98 SECONDS llor a fypcal game sated by 
WARP* 25 m contunnori *nn ACTON REPLAY nil This nmo « H» me COMPLETE load process Kin Mart to 
hnan Reload * entirely INDEPENDENT or me cartndge c- any of* hatfware 
Compare these <accuraw'l homes to some rMtJ Backup systems 




SYSTEM 


LOAD TIME 


■ 




ACTION REPLAY MK III 


25SECS 


THREE 


NO 


ACTION REPLAY MK III 

1 WIIO^'-RW'A 


9 8SECS 


THREE 


NO 


[ FREEZE FRAME (MK IV) 


40SECS 


TWO OR THREE 


NO 


FREEZE FRAME (LAZER) 


SECS 


■ WO 


fES 


EXPERT SYSTEM 


30SECS 


THREE 


NO 1 



All purchasers ot Acton Replay III will receive WARP*25 FREE with then cartridge Eiistmg Action Replay ill owners can obtain 
WARP'25 Disk turbo by sendmg C? 50 post free (No need to send your catndge) OR oOtiun it FREE on the Enhancement Disk (£7 95) 




THE ACTION REPLAY ENHANCEMENT OtSK 

W twsl v tape ow Varsrw routnes to "ottsterdaW 

Suf-rw-GamM AcetfAcwsGaurWel Supetww ManMUatreu 
NasMMMM SlHsBMl U»«Oo'unqoeo**' r «WrirtlS»n •*> 
us* n-wiecqe 'equreo Ti#DotoW a-ouonnui NOTE Smam 
■"W"i-^ <"i*»io*ie".pgWr 1 i e ..-»a— -srt tk :>-* 
■easM Hi lap. tea am tactup urn** 
PfliC E C 7 k • r- ' fif E ' Muno-x- SMnr-o* to aspa* <* Oao«g 
wwr, t»n ; ,.-„i»s tk uvea Kt Acaon Repi*) ."«-*■ 



PERFORMANCE GUARANTEE 

rOO-v Success 1 Rial C*ms' Whos AMM Who* 
Acknn Replay Hi V «M bat*w ar^ program any c<her cartndge 
cac Dacfcup - affl rMnl ■ *bd "as an umacr>af*e range c* ksHm 
Conadec heewAtM to «ur**e wr*t> m more ask spat* 
sates ar seww spew has newer up? oaOe> has no Duel *i Asa 
lassoed* no pciur* Stmst or restart leaturn ano costs C10 more 
nan Achon Rtpbsj SowtasMksnjwiio'But AdNxinw**** 
I »ou two ifeej ii ton na We up id our dsssssl <*w i r dan 
« -««X ano |M morw* «« be raWdast 



T USUALLY SAMEDWDESf 
datel 



USUALLY SAMEDAY DESHMCHCHALLOPCERS 
Send cheques, postal 
orders lo. 

DATEL ELECTRONICS. 
LmtT M DEWSBURY ROAD 
FENTON INDUSTRIAL 
ESTATE, STOKE-ON- 
TRENT. TEL: 0742 773B15 
TELEX. K7H7 TELSER G 



I electronics 



SEE OUR DOUBLE PAGE ADVERTISEMENT ELSEWHERE IN THIS MAGAZINE FOR OUR FULL RANGE OF 
COMMODORE ADD ONS. SEE US ON PRESTEL PAGE No 258860OO0A 12 PAGE CATALOGUE * ORDER PAGE. 




C4LL 24HR CREDIT CARD LINE 

0782 273815 



